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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Amstrad 

GFA 

Amiga 

Commodore 

Compatible PC 

Thomson 

Valeur absolue 

ABS 

ABS 

ABS 

ABS 

ABS 

ABS 

Code d’un caractère 

ASC 

ASC 

ASC 

ASC 

ASC 

ASC 

Arctangente 

ATN 

ATN 

ATN 

ATN 

ATN 

ATN 

Gestion des banques mémoire 

BANK 

- 

- 

- 

DEF USR 

BANK 

Produit un son bref 

- 

- 

BEEP 


BEEP 

BEEP 

Trace un rectangle 

- 

BOX 

LINE BF 

- 

LINE BF 

BOX 

Trace un rectangle plein 

- 

- 

LINE B 

- 

LINE B 

BOXF 

Fusionne un prg en mémoire avec 
un autre en cours de chargement 

CHAIN 

CHAIN 

CHAIN 

- 

CHAIL 

CHAIN 

Caractère par son code ASCII 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

CHR$ 

Convertit un réel en entier 

CINT 

- 

CINT 

- 

CINT 

CINT 

Trace un cercle ou une ellipse 

- 

CIRCLE 

ELLIPSE 

CIRCLE 

- 

CIRCLE 

CIRCLE 

Effacement de variables 

CLEAR 

CLEAR 

CLEAR 

CLR 

CLEAR 

CLEAR 

Ferme un fichier 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

Ferme une fenêtre 


CLOSEW 

WINDOW 


WINDOW 

- 

Effacement écran 

CLS 

CLS 

CLS 


CLS 

CLS 

Couleur texte et fond 

INK 

COLOR 

COLOR 


COLOR 

COLOR 

Reprise d’exécution après STOP 

CONT 

CONT 

CONT 

CONT 

CONT 

CONT 

Cosinus 

COS 

COS 

COS 

COS 

COS 

COS 

Donne numéro de ligne du curseur 

YPOS 

CSRLIN 

CSRLIN 

- 

CSRLIN 

CSRLIN 

Convertit la chaîne en nb double précision 


CVD 

CVD 

- 

CVD 

CVD 

Convertit la chaîne en nb entier 


CVI 

CVI 

- 

CVI 

CVI 

Convertit la chaîne en nb simple précision 


CVS 

CVS 


CVS 

CVS 

Lignes de données 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

Définition d’une fonction mathématique 

DEF FN 

DEF FN 

DEF FN 

DEF FN 

DEF FN 

DEF FN 


_ 

_ 

DEF DBL 

_ 

DEF DBL 

DEF DBL 

Déclaration du type d’un groupe de variables 

DEFINT 

DEFSNG 

— 

DEF INT 

DEF SGN 

— 

DEF INT 

DEF SGN 

DEFINT 

DEFSNG 


DEFSTR 

— 

DEF STR 

— 

DEF STR 

DEFSTR 

Redéfinit un caractère 

SYMBOL 


DEF STR 

- 

DEF STR 

DEFGRS 

Supprime une partie du programme 

DELETE 

- 

DELETE 

- 

DELETE 

DELETE 

Détermine le périphérique par défaut 


- 

COM 

CMD 

COM 

DEVICE 

Dimensions de tableaux 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

Affiche le contenu d'une disquette 

CAT 

DIR 

FILES 

- 

FILES 

DIR 


WH1LE 

DO 

WHILE 

_ 

WHILE 

DO 


WEND 

LOOP 

WEND 

— 

WEND 

LOOP 


— 

EXIT 

REPEAT 

— 

REPEAT 

EXIT 

Boucle conditionnelle 

— 

REPEAT 

UNTIL 

— 

UNTIL 

— 


— 

UNTIL 

— 

— 

— 

— 


— 

WHILE 

— 

— 

— 

— 


— 

WEND 

— 

— 

- 

— 

Fin de programme 

END 

END 

END 

END 

END 

END 

Indique si l’on est à la fin d’un fichier 

EOF 

EOF 

EOF 

- 

EOF 

EOF 

Efface un tableau 

ERASE 

ERASE 

ERASE 

- 

ERASE 

- 

Donne le numéro de ligne où 
se trouve une erreur 

ERL 

ERL 

ERL 

- 

ERL 

ERL 

Donne le code d’une erreur 

ERR 

- 

ERR 

- 

ERR 

ERR 

Simule une erreur 

ERROR 

ERROR 

ERROR 

- 

ERROR 

ERROR 

Exécution d’une routine en LM 

CALL 

CALL 

EXEC 

CALL 

USR 

SYS 

CALL 

EXEC 

USR 

Exponentielle 

EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

Formate un fichier en sortie 

- 

FIELD 

FIELD 

- 

FIELD 

FIELD 

Paramètre les E/S utilisables simultanément 

- 

FILES 

FILES 


FILES 

FILES 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Amstrad 

GFA 

Amiga 

Commodore 

Compatible PC 

Thomson 


FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

Boucle 

TO 

TO 

TO 

TO 

TO 

TO 

STEP 

STEP 

STEP 

STEP 

STEP 

STEP 


NEXT 

NEXT 

NEXT 

NEXT 

NEXT 

NEXT 

Donne l’espace mémoire libre 

FRE 

FRE 

FRE 

FRE 

FRE 

FRE 



GET# 


GET# 


GET# 

Transfère un fichier dans le tampon 

1NPUT# 

INPUT# 

INPUT# 

INPUT# 

INPUT# 

INPUT# 

LINE 1NPUT# 

LINE INPUT# 

LINE INPUT# 

— 

LINE INPUT# 

LINE INPUT# 

Renvoie sous le programme 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

Renvoie à une autre ligne 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

Conversion décimal/hexa 

HEX 

HEX $ 

HEX $ 


HEX $ 

HEX $ 


IF 

1F 

IF 

IF 

1F 

IF 

Test logique 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

ELSE 

ELSE 

ELSE 

— 

ELSE 

ELSE 

Saisie d’une touche au clavier 

INKEY $ 

INKEY $ 

INKEY $ 

GET 

INKEY $ 

INKEY $ 

Lecture d’un port E/S 

INP 

INP 

INP 

- 

INP 

- 

Attente d’une saisie 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

Attente d’une saisie avec formatage 

- 

INPUT $ 

INPUT $ 

- 

INPUT $ 

INPUT $ 

Cherche si une chaîne 
est contenue dans une autre 

INSTR 

INSTR 

INSTR 

- 

INSTR 

INSTR 

Donne le plus grand entier égal 
ou inférieur au nb 

INT 

INT 

INT 

INT 

INT 

INT 

Extrait les caract. d’une chaîne 
alphanumérique en partant de la gauche 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

LEFT $ 

Nb de caract. d’une chaîne alphanumérique 

LEN 

LEN 

LEN 

LEN 

LEN 

LEN 

Affectation de variables 

LET 

LET 

LET 

LET 

LET 

LET 

Trace une ligne 

DRAW 

LINE 

LINE 

- 

LINE 

LINE 

Attente de saisie d’une chaîne 

255 caractères maximum 

LINE INPUT 

LINE INPUT 

LINE INPUT 

- 

LINE INPUT 

LINE INPUT 

Liste le programme en mémoire 

LIST 

LIST 

LIST 

LIST 

LIST 

LIST 

Charge un programme en mémoire 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

LOAD 

Charge un fichier binaire en mémoire 

- 

BLOAD 

BLOAD 

- 

BLOAD 

LOADM 

Positionne le curseur texte 

LOCATE 

PRINT (AT) 

LOCATE 

— 

LOCATE 

LOCATE 

Logarithme népérien 

LOG 

LOG 

LOG 

LOG 

LOG 

LOG 

Formatage par la gauche 
d’une chaîne alphanumérique 

- 

LS ET 

LSET 

- 

LSET 

LSET 

Donne le chiffre le plus élevé 
contenu dans une liste 

MAX 

MAX 

MAX 

- 

MAX 

MAX 

Fusionne deux programmes par amalgame 

MERGE 

MERGE 

MERGE 

- 

MERGE 

MERGE 

Extraction d'une chaîne 
contenue dans une autre 

MID $ 

MID $ 

MID $ 

MID $ 

MID $ 

MID $ 

Donne le plus petit chiffre 
contenu dans une liste 

MIN 

MIN 

MIN 

- 

MIN 

MIN 

Convertit un nb en double précision en chaîne 

- 

MKD $ 

MKD $ 


MKD $ 

MKD $ 

Convertit un entier en chaîne 


MKI $ 

MKI $ 


MKI $ 

MKI $ 

Convertit un nb en simple précision en 
chaîne 

_ 

MKS $ 

MKS $ 

— 

MKS $ 

MKS $ 

Change le nom d’un fichier 

RENAME 

NAME 

RENAME 

- 

RENAME 

NAME 

Efface le programme en mémoire 

NEW 

NEW 

NEW 

NEW 

NEW 

NEW 

Convertit en octal 

OCT 

OCT $ 

OCT $ 

- ' 

OCT $ 

OCT $ 

Branchement en cas d’erreur 

ON ERROR 

ON ERROR 

ON ERROR 

- 

ON ERROR 

ON ERROR 

Branchement en fonction d’une variable 

ON GOSUB 

ONGOSUB 

ON GOSUB 

ON GOSUB 

ON GOSUB 

ON GOSUB 

ON GOTO 

ON GOTO 

ON GOTO 

ON GOTO 

ON GOTO 

ON GOTO 

Ouvre un fichier en écriture 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

Ecrit sur un port E/S 

OUT 

OUT 

OUT 

- 

OUT 


Remplit une zone écran 

FILL 

FILL 

PAINT 

- 

PAINT 

PAINT 
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ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ORDRES BASIC 

Amstrad 

GFA 

Amiga 

Commodore 


Affecte une couleur à un crayon 

PEN 

COLOR 

COLOR 

- 

COLOR 

Fixe un motif de remplissage pour 

PAINT, BOXE, etc 

- 

COLOR 

COLOR 

- 

COLOR 

Lecture d’une adresse mémoire 

PEEK 

PEEK 

PEEK 

PEEK 

PEEK 

Emission de sons complexes 

SOUND 

SOUND 

SOUND 

- 

SOUND 

Teste un point graphique 

TEST 

POINT 

POINT 

- 

POINT 

Ecriture à une adresse mémoire 

POKE 

POKE 

POKE 

POKE 

POKE 

Indication de la position 
du curseur sur une ligne 

XPOS 

CURSCOL 

POS 

POS 

POS 

Affiche une chaîne alphanumérique à l’écran 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT, 


PRINT# 

PRINT# 

PRINT# 

PRINT# 

PRINT# 

Ecrit dans le fichier spécifié 

— 

PUT# 

PUT# 

— 

PUT# 


WRITE# 

WRITE# 

WRITE# 

- 

WRITE# 

Formatage de l’affichage 

PRINT USING 

PRINT USING 

PRINT USING 


PRINT USING 

Allume un point graphique 

PLOT 

PLOT 

PSET 


PSET 

Restitue à l’écran une portion de tableau 

- 

PUT 

PUT 


PUT 

Lecture des DATA 

READ 

READ 

READ 

READ 

READ 

Permet de mettre des commentaires 

REM 

REM 

REM 

REM 

REM 

Renumérote des lignes du programme 
en mémoire 

RENUM 

- 

RENUM 

- 

RENUM 

Initialisation de la machine 

CALLO 

QUIT 

SYSTEM 


SYSTEM 

Initialisation des DATA 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

RESTORE 

Fin de branchement en cas d’erreur 

RESUME 

RESUME 

RESUME 


RESUME 

Fin de sous programme 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

Extraction des caractères d’une chaîne 
alphanum. en partant de la droite 

RIGHT $ 

RIGHT $ 

RIGHT $ 

RIGHT $ 

RIGHT $ 

Donne un nb pseudo-aléatoire 

RND 

RND 

RND 

RND 

RND 

Formatage d’une chaîne à droite 

- 

RS ET 

RSET 


RSET 

Lance l’exécution 

RUN 

RUN 

RUN 

RUN 

RUN 

Sauvegarder un programme 

SAVE 

SAVE 

SAVE 

SAVE 

SAVE 

Sauvegarde d’un fichier binaire 


BSAVE 

BSAVE 


BSAVE 

Imprime l’écran 


HARDCOPY 



- 

Donne le signe d'un nombre 

SGN 

SGN 

SGN 

SGN 

SGN 

Sinus 

SIN 

SIN 

SIN 

SIN 

SIN 

Crée une chaîne constituée d’espaces 

SPACE $ 

SPACE $ 

SPACE $ 

- 

SPACE $ 

Tabulation 

SPC 

SPC 

SPC 

SPC 

SPC 

Racine carrée 

SQR 

SQR 

SQR 

SQR 

SQR 

Arrêt d’exécution 

STOP 

STOP 

STOP 

STOP 

STOP 

Transforme un nb en chaîne alpha. 

SRT $ 

STR $ 

STR $ 

STR $ 

STR $ 

Crée une chaîne constituée de X fois un 
caractère 

STRING $ 

STRING $ 

STRING $ 

- 

STRING $ 

Echange le contenu de deux variables 


SWAP 

SWAP 

- 

SWAP 

Tabulation 

TAB 

TAB 

TAB 

TAB 

TAB 

Tangente 

TAN 

TAN 

TAN 

TAN 

TAN 

Gestion du mode test 

TROFF 

TROFF 

TROFF 


TROFF 

TRON 

TRON 

TRON 

- 

TRON 

Valeur numérique d’une chaîne 
alphanumérique 

VAL 

VAL 

VAL 

VAL 

VAL 

Donne l’adresse d’une variable 

- 

VARPTR 

VARPTR 

- 

VARPTR 

Vérification des enregistrements 

— 

_ 

_ 

VERIFY 

— 

sur disquette 

- 

- 

- 

— 

— 

Attente 

- 

- 

PAUSE 

WAIT 

PAUSE 

Crée une enveloppe de son 

ENV/ENT 

WAVE 

- 

- 

- 

Création d’une fenêtre 

WINDOW 

OPENW 

WINDOW 

- 

WINDOW 


Thomson 

PALETTE 

PATTERN 

PEEK 

PLAY 

POINT 

POKE 

POS 

PRINT 

PRINT# 

PUT# 

WRITE# 

PRINT USING 

PSET 

PUT 

READ 

REM 

RENUM 

RESET 

RESTORE 

RESUME 

RETURN 

RIGHT $ 

RND 

RSET 

RUN 

SAVE 

SAVEM 

SCREENPRINT 

SGN 

SIN 

SPACE $ 

SPC 

SQR 

STOP 

STR $ 

STRING $ 

SWAP 

TAB 

TAN 

TROFF 

TRON 

VAL 

VARPTR 

VERIFYON 

VERIFYON 

WAIT 

- 

WINDOW 























































































































































































































































































AM/GA 


Amiga Basic 

Du monde à la fenêtre 


L ’Amiga Basic est un Basic de 
chez Microsoft adapté pour tenir 
compte des qualités propres à 
r Amiga. 

En fait des programmes écrits pour 
PC en Basica et Gwbasic ou même 
pour Msx, TO 7 (si, si!) peuvent être 
traduits assez facilement en Amiga 
Basic (à condition qu’ils n’utilisent 
pas trop les particularités de ces 
machines). L’Amiga n’étant pas, en 
général, votre première machine, 
vous avez donc une chance non né¬ 
gligeable, de ne pas être complète¬ 
ment perdu en lisant ces listings. 

De plus, ceux qui ont pu voir le Ba¬ 
sic du Macintosh seront encore 
moins dépaysés. En effet, comme 
dans ce dernier, on trouve des ins¬ 
tructions pour gérer les menus, les 
écrans et les fenêtres, la souris, et la 
gestion d’événements. 

Ce Basic a les avantages de la com¬ 
patibilité mais a les défauts des Ba- 
sics de ce que j’appellerai l’ancienne 
génération (BASICA...): Il est com¬ 
plètement interprété, donc très lent 
par rapport au GFA par exemple. 

Lancement 

Lancez le Basic à partir de la dis¬ 
quette Extra en double cliquant sur 
l’Icône (après avoir chargé le Work- 
bench bien évidemment). 

Pour stocker vos programmes utili¬ 
sez une disquette à part (L’Amiga 
ayant une fâcheuse tendance à es¬ 
quinter les disquettes je vous 
conseille même de recopier votre 
disquette Basic avant de travailler). 
Le workbench étant toujours acces¬ 
sible même le Basic lancé, vous 
pouvez formater une nouvelle dis¬ 
quette quand vous le désirerez. 
Donnez un nom clair à cette dis¬ 
quette. Pour utiliser un fichier sur 
une autre disquette, mettez le nom 
de la disquette suivi de deux point (:) 
devant le nom de fichier. Le système 
demandera alors les changements de 
disquette (in any drive) en les nom¬ 
mant par leur nom, ce qui évite la 
confusion - et une raison supplé¬ 
mentaire de se planter. 

Saisie de programme 

La saisie s’effectue dans la fenêtre 
d’édition nommée List. 

Lorsque vous tapez une ligne Basic, 
les mots clefs passent en majuscule 


lorsque vous avez fini la ligne (return 
ou flèche haut et bas). Vous pouvez 
donc tout taper en minuscule. Ainsi 
lorsque vous faites une faute de 
frappe (çà arrive même aux meil¬ 
leurs), le mot clef ne passera pas en 
majuscule et vous verrez tout de 
suite que vous avez commis une er¬ 
reur. Ne pensez pas qu’une ligne 
ainsi tapée sera dépourvue de fautes 
car, hélas, l’interpréteur ne vérifie 
les erreurs de syntaxe qu’au moment 
de l’exécution. Les surprises sont 
donc pour plus tard. 

Petites particularités 

Les numéros de lignes sont faculta¬ 
tifs. Il faut mettre les lignes dans 
l’ordre dans lequel elles doivent être 
exécutées, même si vous leur attri¬ 
buez des numéros. Si les numéros de 
lignes ne sont pas en ordre crois¬ 
sant, l’Amiga les exécutera dans 
l’ordre oû elles sont écrites. 

Lorsqu’il n’y a pas de numéro de 
ligne, les débranchements 
s’effectuent à ce que l’on appelle des 
labels alphanumériques (étiquettes 
en français). Une étiquette est une 
suite de caractères, commence par 
une lettre et est en début de ligne. 
Elle est suivie par un deux points (:) 
sans espace. 

Un autre moyen beaucoup plus 
puissant de se "débrancher" 
consiste à utiliser les sous- 
programmes. Un sous-programme 
se comporte un peu comme un 
programme à lui tout seul. Sauf 
indication contraire, les variables 
utilisées dans un sous-programme 
n’ont de signification qu’à 
l’intérieur de celui-ci. C’est ce que 
l’on appelle des variables locales. 
C’est très pratique pour ne pas se 
mélanger les pédales dans les va¬ 
riables temporaires (boucles For 
imbriquées par exemple). 

Vous avez sans doute déjà remarqué 
que l’Amiga peut gérer des plans 
d’écran différents que l’on peut faire 
coulisser avec la souris. L’Amiga 
Basic permet la gestion de ces plans 
grâce à l’instruction Screen^ on 
définit alors le nombre de couleurs 
et la palette de ce Screen. Dans 
chaque Screen on peut ouvrir des fe¬ 
nêtres grâce à l’instruction 
Window. Tout cela est amusant 
mais attention à la place mémoire: 


les Screen et les fenêtres sont assez 
gourmands. 

La définition de Menu est assez 
simple grâce a l’instruction Menu. 
Les fonctions Menu(O) et Menu( 1) 
permettent de connaître le menu et 
la ligne sélectionnée. Remarque: on 
peut définir un jeu de menus par 
screen. Une gestion assez complète 
de la souris est possible grâce aux 
fonctions MousE(n). 

Tester un programme 

Un programme, même tapé 
consciencieusement, ne tourne pas 
toujours du premier coup. Un cer¬ 
tain nombre de trucs sont souvent 
nécessaires pour trouver où se situe 
l’erreur. 

Les erreurs de syntaxe sont faciles à 
trouver, puisque le programme 
s’arrête à la ligne en question, qu’il 
suffit de relire. Par contre, certaines 
erreurs n’entraînent pas d’erreur de 
syntaxe. Deux cas. Le programme se 
plante (il s’arrête). On a un message 
d’erreur et la ligne où le programme 
s’arrête. 

L’erreur n’est pas forcément à cette 
ligne. Il faut alors bien lire le mes¬ 
sage d’erreur et essayer de le com¬ 
prendre (ce n’est pas toujours évi¬ 
dent). 

Si une ligne contient plusieurs ins¬ 
tructions, vous pouvez les mettre sur 
des lignes séparées pour voir quelle 
instruction se plante. Vous pouvez 
aussi taper des instructions dans la 
fenêtre Output. Par exemple faire 
un Print d’une ou plusieurs variables 
pour voir leur contenu actuel. 

Si le programme ne se plante pas 
mais tourne mal, c’est plus compli¬ 
qué. Essayez de cerner le problème 
en ajoutant des instructions qui affi¬ 
chent les variables cruciales. Vous 
pouvez aussi insérer des STOP à cer¬ 
tains endroits afin de localiser 
l’endroit où l’erreur se produit. 
Lorsque le programme est arrêté, 
vous pouvez utiliser les techniques 
précédentes. Si cela ne suffit pas, 
vous pouvez faire exécuter votre 
programme en mode Trace qui 
vous permet de voir quelles sont les 
instructions exécutées et, au pire, 
passez en mode pas à pas en utili¬ 
sant la combinaison des touches 
"Amiga + T". Les instructions 
s’affichent dans la fenêtre List pen¬ 
dant l’exécution du programme. 
N’oubliez pas la règle numéro un de 
la micro: consultez le manuel! 


Al Kawarismi 
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MORPION 500 

Inutile de rappeler les règles de ce célèbre jeu de stratégie. 

Simple à manier. Morpion 500 peut se joueur 


à deux ou contre l’ordinateur. 


Un listing relativement court pour des parties de haute réflexion. 

CLEAR 

END IF 

PUT (104,20),b 

CLS 

IF rt$<CHR$(128) OR rt$>CHR$(132) THEN G 

PUT (184,20),b 

SCREEN 1,320,200,5,1 

0T0 suitel 

PUT (264,20),b 

WIND0W 2,,,0,1 


PUT (24,14),c,PSET 

PALETTE 0,0,0,0 

suite.b: 

PUT (24,164),c,PSET 

PALETTE 1,0,0,0 

NEXT i 

PUT (24,64),c,PSET 

PALETTE 3,0,0,0 

IF c=23 THEN c=28 ELSE c=23 

PUT (24,114),c,PSET 

PALETTE 4,0,0,0 

GOTO 10 


PALETTE 8,0,0,.9 


CLEAR 

PALETTE 9,0,0,.7 

pale: 

RANDOMIZE TI MER 

PALETTE 10,.9,0,0 

o1=0:o2=0:o3=0 


PALETTE 11,.7,0,0 

ad1=0:ad2=0:ad3=0 

j eux : 

PALETTE 12,.5,0,0 




IF touche=129 THEN 

GOSUB vérification.gagner 

c=. 16 

ad1=.16:o1=.16 

GOSUB vérification.égalité 

FOR i = 14 TO 19 

END IF 


PALETTE i,0,0,c:c=c+.16 


15 x=INT(RND(1)*9)+1:1F case(x)<>0 THEN 

NEXT i 

IF touche=130 THEN 

GOTO 15 


ad3=.16:o3=.16 


FOR i = 14 TO 19 

END IF 

FOR j = 1 TO 2 

LINE (0,C100-(i-14)))-(320,(100-(i-14))) 


RESTORE data.pos 

.i 

IF touche=131 THEN 

FOR i = 1 TO 8 

LINE (0,(100+(i-14)))-(320,(100+(i-14))) 

ad1=.16:ad3=.16:o1=.16:o3=.16 

READ a,b,c 

, i 

END IF 

IF case(a)=j AND case(b)=j AND case(c)=0 

NEXT i 


THEN x=c 


FOR i = 14 TO 19 

IF case(b)=j AND case(c)=j AND case(a)=0 

DIM a(850) 

PALETTE i,o1,o2,o3 

THEN x=a 

GET (0,94)-(320,106),a 

o1=o1+ad1:o2=o2+ad2:o3=o3+ad3 

IF case(a)=j AND case(c)=j AND case(b)=0 

CLS 

NEXT i 

THEN x=b 

FOR i = 0 TO 200 STEP 12 

RETURN 

NEXT i 

PUT (0,i),a 


NEXT j 

NEXT i 





case(x)=2 

LINE (80,80)-(230,120),0,bf 

suitel: 

RESTORE data.dessin 

a$="M0RPI0N 500" 

CLS:x=20 

FOR i = 1 TO x 

COLOR 23,0 

FOR i = 22 TO 28 

READ a,b:NEXT i 

LOCATE 13,15:PR INT a$:c=23 

LINE (x,20)-(x,170),i 

CIRCLE (a,b),20,10 

LINE (80,154)-(230,174),0,bf 

x=x+1:NEXT i 

CIRCLE (a,b),19,10 

LOCATE 21,14:PRINT"PRESS ANY KEY" 

DIM b(1000):GET (20,20)-(26,170),b 

CIRCLE (a,b),18,10 

10 FOR i =1 TO 11 

CLS:x=20 

GOSUB verifi cation.gagner 

LOCATE 13,1+14 

FOR i = 22 TO 28 

GOSUB ver ification.égalité 

b$=MID$(a$,i,1):COLOR c,0:PRINT b$ 

LINE (20,x)-(266,x),i 



x=x+1:NEXT i 

b$="A VOUS DE JOUER" 

rt$=INKEY$:IF rt$="" THEN GOTO suite.b 

DIM c(1000):GET (20,20)-(266,26),c 

LOCATE 1,12:PRINT b$:c=28 

IF rt$>CHR$(128) AND rt$<CHR$(132) THEN 

CLS 


touche=ASC(rt$):GOSUB pale 

PUT (24,20),b 

20 FOR i = 12 TO 12+LEN(b$) 


V 
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COLOR c,0 

IF case(cch)<>0 THEN 

verification.ega Lite: 

IF MOUSE(0)<0 THEN 

av=0:cch=0 

co=0:F0R i = 1 TO 9 

mcx=MOUSE <1):mcy=MOUSE(2):MOUSE OFF 

END IF 

IF case(i)<>0 THEN co=co+1 

GOSUB vérifié:IF av=1 THEN GOTO suite2 

END IF 

NEXT i 

END IF 

NEXT yt 

IF co<9 THEN RETURN 

c$=MID$(b$, i -11,1 ) 

MOUSE ON 

b$="VOUS ETES A EGALITE":COLOR 23,0 

LOCATE 1,i: PRINT c$ 

RETURN 

LOCATE 1,9:PRINT b$:c=28 

NEXT i 


40 FOR i = 9 TO (9+LEN(b$)) 

IF c=23 THEN c=28 ELSE c=23 

vérification.gagner : 

IF INKEY$<>""THEN RUN 

GOTO 20 

FOR j = 1 TO 2 

c$=MID$(b$,i-8,1) 


RESTORE data.pos 

LOCATE 1,i:COLOR c,0:PRINT c$ 


FOR i = 1 TO 8 

NEXT i 

suite2: 




READ a,b,c 

IF c=23 THEN c=28 ELSE c=23 

av=0 



RESTORE data.dessin 

IF case(a)=j AND case(b)=j AND case(c)=j 

GOTO 40 

FOR i = 1 TO cch:READ a,b:NEXT i 

THEN gag= j 


LINE (a-20,b-15)-(a+20,b+15),8 

NEXT i 

data.pos: 

LINE (a+20,b-15)-(a-20,b+15),8 

IF gag<>0 THEN j=2 

DATA 1,2,3,4,5,6,7,8,9,1,4,7,2,5,8,3,6,9 

LINE (a-21,b-15)-(a+19,b+15),9 

NEXT j 

,1,5,9,7,5,3 

LINE (a+21,b-15)-(a-19,b+15),9 

IF gag=0 THEN RETURN 


case(cch)=1 

IF gag=1 THEN b$="BRAVO , VOUS AVEZ GAGN 

data.dessin: 

LOCATE 1,10:PRINT" 

IF gag=2 THEN b$="DESOLE , VOUS AVEZ PER 

DATA 68,41,145,41,225,41 

II 

DU" 

DATA 68,92,145,92,225,92 

GOTO jeux 

COLOR 23,0 

DATA 68,142,145,142,225,141 


LOCATE 1,8:PRINT b$:c=28 


vérifié: 

30 FOR i = 8 TO (8+LEN(b$)) 

data.mouse: 

RESTORE data.mouse 

IF INKEY$<>""THEN RUN 

DATA 33,22,104,64,113,22,184,64,193,22,2 

FOR yt = 1 TO 9 

c$=MID$(b$,i-7,1) 

64,64 

READ mx,my,mx2,my2 

LOCATE 1,i:COLOR c,0:PRINT c$ 

DATA 33,72,104,114,113,72,184,114,193,72 

IF mcx>mx AND mcx<mx2 AND mcy>my AND mcy 

NEXT i 

,264,114 

<my2 THEN 

IF c=23 THEN c=28 ELSE c=23 

DATA 33,122,104,164,113,122,184,164,193, 

av=1:cch=yt:yt=9 

GOTO 30 

122,264,164 
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PAINT 


Un logiciel de dessin qui vous fera découvrir les joies du pixel de 
couleur, graphique Editor utilise le mode 320/200 points, en seize 
couleurs. On y retrouve toutes les fonctions traditionnelles, trait. 


boîte, cercle, etc... 


InitScreens: 

DECLARE FUNCTION AllocMem&O LIBRARY 

LOCATE 5,27:PRINT"Rect. (5) 

DEFINT a-z 

LIBRARY "dos.1ibrary" 

LOCATE 6,27:PRINT"Eraser(6) 

DEF FNArraySize& = 3+INT((BobRight+16)/1 

LIBRARY "exec.1ibrary" 

LOCATE 7,27:PRINT"Paint (7) 

6)*(BobBottom+1)*Depth 

LIBRARY "graphies.1ibrary" 

LOCATE 11,10:PRINT "Mode: 1"; 

DIM DrawRect(3),ToolName$(7) 

Depth=5 

LOCATE 9,1:PRINT"A"; 

DIM bPlane&(5), ctabsave%(32) 

SCREEN 1,320,200,5,1 

COLOR 0,1:PRINT"B";:COLOR 0,2:PRINT"C"; 

DIM red(32),green(32),blue(32):DIM gete( 

WINDOW 3,"",(0,5)-(311,90),16,1 

COLOR 0,3:PRINT"D";:COLOR 0,4:PRINT"E"; 

32) 

LOCATE 1,27:PRINT"Pen (1) 

COLOR 0,5:PRINT"F";:COLOR 0,6:PRINT"G"; 

DECLARE FUNCTION xOpenS LIBRARY 

LOCATE 2,27:PRINT"Point (2) 

COLOR 0,7:PRINT"H";:COLOR 0,8:PRINT"I"; 

DECLARE FUNCTION xRead& LIBRARY 

LOCATE 3,27:PRINT"Line (3) 

COLOR 0,9:PRINT"J";:COLOR 0,10:PRINT"K"; 

DECLARE FUNCTION xWrite& LIBRARY 

LOCATE 4,27:PRINT"Oval (4) 

COLOR 0,11:PRINT"L";:COLOR 0,12:PRINT"M" 
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COLOR 0,13:PRINT"N"; :COLOR 0,14:PRINT"0" 
COLOR 0,15:PRINT"P";:COLOR 0,16:PRINT"Q" 
COLOR 0,17:PRINT"R";:COLOR 0,18:PRINT"S" 
COLOR 0,19:PRINT"T";:COLOR 0,20:PRINT"U" 
COLOR 0,21 :PRINT"V"; :COLOR 0 > 22:PRINT"W" 
COLOR 0,23:PRINT"X";:COLOR 0,24:PRINT"Y" 
COLOR 0,25:PRINT"Z";:COLOR 0,26:PRINT"0" 
COLOR Û,27:PRINT"1";:COLOR 0,28:PRINT"2" 
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COLOR 0,29:PRINT"3";:COLOR 0,30:PRINT"4" 

COLOR 0,31:PRINT"5";:COLOR 1,0 
LOCATE 10,2:PR INT"*"; 

SCREEN 2,320,190,5,1 

WINDOW 2,(0,4)-(311,170),16,2 

FOR n=0 TO 1:READ re:red(n)=re:READ gr 

green(n)=gr:READ bl:blue(n)=bl 

PALETTE n,red(n)/15,green(n)/15,blue(n)/ 

15 

WINDOW OUTPUT 3 

PALETTE n,red(n)/15,green(n)/15,blue(n)/ 
15 

WINDOW OUTPUT 2: NEXT n 

DATA 0,0,0, 15,15,15 
FOR n =2 TO 31 

re=INT(RND(1>*15):gr=INT(RND(1)*15):bl=I 
NT(RND<1)*15) 

red(n)=re:green(n)=gr:blue(n)=bl 

PALETTE n,re/15,gr/15,bl/15 

WINDOW OUTPUT 3 

PALETTE n,re/15,gr/15,bl/15 

WINDOW OUTPUT 2 

NEXT n 

PRINT "Amiga-BASIC Graphie Editor" 

GOSUB InitConstant 
GOSUB InitFile 
GOSUB InitMenu 
GOTO startover 

InitConstant: 

ToolMode=1 
CurrentColor=1 
RETURN 
InitFile: 

maxColor=2'Depth - 1 
PlanePic k=maxColor 
RETURN 
InitMenu: 

MENU 1,0,1,"File":MENU 1,1,1,"New" 

MENU 1,2,1 ,"Open ..."-.MENU 1,4,1,"Quit" 
MENU 1,3,1,"Save as ...":MENU 2,0,1,"Too 


MENU 3,0,1,"Palt":MENU 3,1,1,"make" 

MENU 4,0,1,"palt1":MENU 4,1,1," A" 

MENU 4,2,1," B":MENU 4,3,1," C" 

MENU 4,4,1," D":MENU 4,5,1," E" 

MENU 4,6,1," F":MENU 4,7,1," G" 

MENU 4,8,1," H":MENU 4,9,1," I" 

MENU 4,10,1," J":MENU 4,11,1," K" 

MENU 4,12,1," L":MENU 4,13,1," M" 

MENU 4,14,1," N":MENU 4,15,1," O" 

MENU 4,16,1," P":MENU 5,0,1,"PALT3" 

MENU 5,1,1," Q":MENU 5,2,1," R" 

MENU 5,3,1," S":MENU 5,4,1," T" 

MENU 5,5,1," U":MENU 5,6,1," V" 

MENU 5,7,1," W":MENU 5,8,1," X" 

MENU 5,9,1," Y":MENU 5,10,1," Z" 

MENU 5,11,1," 0":MENU 5,12,1," 1" 

MENU 5,13,1," 2":MENU 5,14,1," 3" 

MENU 5,15,1," 4":MENU 5,16,1," 5" 
ToolName$(1)="Pen":ToolName$(2)="point" 

T oolN ame$(3)="Line": T oolN ame$(4)="Oval" 

ToolName$(5)="Rectangle":ToolName$(6)="E 

raser" 

ToolName$(7)="Paint" 

FOR i=1 TO 7:MENU 2,i,1,ToolName$(i):NEX 
T i 

CLS:RETURN 

startover: 

ON MENU GOSUB CheckMenu : MENU ON 
ON MOUSE GOSUB CheckMouse : MOUSE ON 
ON BREAK GOSUB IgnoreBreak: BREAK ON 
Unfinished = -1 
WH ILE Unfinished 


MENU OFF: MOUSE OFF 

SCREEN CLOSE 2: SCREEN CLOSE 1 

LIST:MENU RESET:CLS:END 

CheckMenu: 

MenuId=MENU(0> 

menuitem=MENU(1) 

ON Menuld GOTO FileMenu,ToolsMenu,mpalet 

te,check1,check2 

CheckMouse: 

GetCurrentXY :StartY=CurrentY:StartX=Cur 
rentX 

ON ToolMode GOSUB Pen,Dpoint,DrawLine,Dr 

awCircle,DrawRectangle,ErasePicture,Pain 

tPicture 

RETURN 

ToolsMenu: 

ToolMode=menuit em 

WINDOW OUTPUT 3:LOCATE 11,15:PRINT menui 
tem; 

WINDOW OUTPUT 2:RETURN 
Fi leMenu: 

ON menuitem GOSUB NewFile,OpenFile,SaveF 


ileas,Quit 


IgnoreBreak: 


NewFile: 

CLS 

GOTO startover 
Quit: 

Unfinished=0 
RETURN 
OpenFile: 

WINDOW 4,"OPEN",(10,80>-(301,90),16,1 
INPUT ILBMnameî:WINDOW CLOSE 4:WINDOW 2 
IF ILBMname$="" THEN GOTO mcleanup 
ccrtDir% = 0:ccrtStart% = 0:ccrtEnd% 

= 0 

ccrtSecsfc = 0:ccrtMics& = 0 
loadErrorî = "":GOSUB LoadILBM 
FOR kk=0 TO 31:nom=gete(kk) 
r ed(kk )= I NT(nom/256):nom=nom-(red(kk)*25 
6 ) 

green(kk)=INT(nom/16):nom=nom-(green(kk) 

*16) 

blue(kk)=nom 

IF red(kk)>7 AND red(kk)<15 THEN red(kk) 
=red(kk)-1 

IF green(kk)>7 AND green(kk)<15 THEN gre 
en(kk)=green(kk)*1 

IF blue(kk)>7 AND blue(kk)<15 THEN blue( 

kk)=blue(kk)-1 

NEXT kk 

GOTO mcleanup 

IF loadErrorî <> "" THEN GOTO mcleanup 
IF foundCCRT AND ccrtDir% THEN 
FOR kk = 0 TO nColors% -1 
ctabsave%(kk) = PEEKW(colorTab&+(kk*2)) 

cTabWork%(kk) = ctabsave%(kk):NEXT 
FOR kk = 0 TO 80 
IF ccrtDir% = 1 THEN 

GOSUB Fcycle 
ELSE 

GOSUB Bcycle 
END IF 

CALL LoadRGB4&(sViewPort&,VARPTR(cTabWor 
k%(0)),nColors%) 

FOR del = 0 TO ccrtSecs& * 3000 
FOR de2 = 0 TO ccrtMicsS / 500 
NEXT:NEXT:NEXT 

CALL LoadRGB4&(sViewPort&,VARPTR(ctabsav 
e%(0)),nColors%) 

END IF 
LoadILBM: 

fS = ILBMname$:fHandle& = 0:mybuf& = 0 
foundBMHD = 0:foundCMAP = 0:foundCAMG = 

0 

foundCCRT = 0:foundBODY = 0 
filenameS = f$ + CHR$(0) 





fHandle& = xOper>&(SADD(f i lenameî), 1005) 

IF fHandleS = O THEN 

loadError$ = "Can't open/find pic file" 

GOTO Lcleanup 

END IF 

ClearPublicS = 65537& 
mybufsize& = 360 

mybuf& = AllocMem&(mybufsize&,ClearPubli 
c&) 

IF mybuf& = 0 THEN 

loadErrorî = "Can't alloc buffer" 

GOTO Lcleanup 
END IF 

inbuf& = mybuf&:cbuf& = mybuf& + 120 
ctab& = mybuf& + 240 
rLen& = xRead&(fHandle&,inbuf&,12) 
tt$ = »» 

FOR kk = 8 TO 11 

tt% = PEEK(inbuf& + kk):tt$ = tt$.+ CHR$ 
(tt%) 

NEXT 

IF tt$ <> "ILBM" THEN 

loadErrorî = "Not standard ILBM pic file 

II 

GOTO Lcleanup 
END IF 
ChunkLoop: 

rLen& = xRead&(fHandle&,inbuf&,8) 
icLen& = PEEKL(inbuf& + 4) 
ttî = »" 

FOR kk = 0 TO 3:tt% = PEEK(inbuf& + kk) 
tt$ = tt$ + CHRÎ(ttX):NEXT 
IF tt$ = "BMHD" THEN 'BitMap header 
foundBMHD = 1 

rLen& = xRead&(fHandle&,inbuf&,icLen&) 
iWidth% = PEEKW(inbuf&) 
iHeight% = PEEKW(inbuf& + 2) 
iDepth% = PEEK(inbuf& + 8) 
iComprX = PEEK(inbuf& + 10) 
scrWidth% = PEEKW(inbuf& + 16) 
scrHeight% = PEEKW(inbuf& + 18) 
iRowBytes% = iWidth% /8 
scrRowBytes% = scrWidth% / 8 
nColors% = 2‘(iDepth%) 

AvailRam& = FRE(-I) 

NeededRamS = ((scrWidth%/8)*scrHeight%*( 

iDepth%+1))+5000 

IF AvailRamS < NeededRam& THEN 

loadErrorî = "Not enough free ram" 

GOTO Lcleanup 
END IF 
kk = 1 

IF scrWidth% > 320 THEN kk = kk + 1 
IF scrHeight% > 200 THEN kk = kk + 2 
GOSUB GetScrAddrs 

ELSEIF ttî = "CMAP" THEN 'ColorMap 
foundCMAP = 1 

rLer>& = xRead&(fHandle&,cbuf&,icLenS) 

FOR kk = 0 TO nColors% - 1 


red% = PEEK(cbuf&+(kk*3)) 

gre% = PEEK(cbuf&+(kk*3)+1) 

blu% = PEEK(cbuf&+(kk*3)+2) 

regtemp% = (red%*16)+(greX)+(blu%/16) 

POKEW(ctab&+(2*kk)),regtemp% 

gete(kk)=regtemp%:NEXT 

ELSEIF ttî = "CAMG" THEN 'Amiga ViewPor 

t Modes 

foundCAMG = 1 

rLen& = xRead&(fHandle&,inbuf&,icLen&) 
camgModesS = PEEKL(inbufS) 

ELSEIF ttî = "CCRT" THEN 'Graphicraft co 
lor cycle info 

foundCCRT = 1:rLen& = xRead&(fHandleS,in 
buf&,icLen&) 

ccrtDir% = PEEKW(inbuf&) 

ccrtStart% = PEEK(inbuf& + 2) 

ccrtEndX = PEEK(inbuf& + 3) 

ccrtSecs& = PEEKL(inbuf& + 4) 

ccrtMics& = PEEKL(inbuf& + 8) 

ELSEIF ttî = "BODY" THEN 'BitMap 
foundBODY = 1 

IF iCompr% = 0 THEN 'no compression 

FOR rr = 0 TO iHeight% -1 

FOR pp = 0 TO iDepth% -1 

scrRow& = bPlane&(pp)+(rr*scrRowBytes%) 

rLen& = xRead&(fHandle&,scrRow&,iRowByte 

s%) 

NEXT:NEXT 

ELSEIF iCompr% = 1 THEN 'cmpByteRunl 

FOR rr = 0 TO iHeight% -1 

FOR pp = 0 TO iDepth% -1 

scrRow& = bPlane&(pp)+(rr*scrRowBytes%) 

bCnt% = 0 

WH ILE (bCnt% < iRowBytes%) 
rLen& = xRead&(fHandle&,inbuf&,1) 
inCode% = PEEK(inbufS) 

IF inCode% < 128 THEN 
rLen& = xRead&(fHar>dle&, scrRow& + bCnt%, 
inCode%+1) 

bCnt% = bCnt% + inCode% + 1 
ELSEIF inCode% > 128 THEN 
rLen& = xRead&(fHandle&,inbuf&,1) 
inByte% = PEEK(inbuf&) 

FOR kk = bCnt% TO bCntX + 257 - inCodeX 

POKE(scrRow&+kk),inByte%:NEXT 

bCntX = bCntX + 257 - inCodeX 

END IF 

WEND 

NEXT:NEXT 
ELSE 

loadErrorî = "Unknown compression algori 
thm" 

GOTO Lcleanup 
END IF 
ELSE 

FOR kk = 1 TO icLen& 

rLen& = xRead&(fHandle&,inbuf&,1):NEXT 

IF (icLen& OR 1) = icLen& THEN 


rLen& = xRead&(fHandle&,inbuf&,1) 

END IF 
END IF 

IF foundBMHD AND foundCMAP AND foundBODY 
THEN 

GOTO GoodLoad 
END IF 

IF rLen& > 0 THEN GOTO ChunkLoop 
IF rLer>& < 0 THEN 'Read error 
loadErrorî = "Read error" 

GOTO Lcleanup 
END IF 

IF (foundBMHD=0) OR <foundBODY=0) OR (fo 
urtdCMAP=0) THEN 

loadErrorî = "Needed ILBM chunks not fou 
nd" 

GOTO Lcleanup 
END IF 
GoodLoad: 
loadErrorî = "" 

IF foundCMAP THEN 

CALL LoadRGB4&(sViewPort&,ctab&,nColors% 
) 

END IF 
Lcleanup: 

IF fHandlefc <> 0 THEN CALL xClose&CfHand 
le&) 

IF mybuf& <> 0 THEN CALL FreeMem&(mybuf& 
,mybufsize&) 

RETURN 

SaveFileas: 

WINDOW 4,"save",(10,80)-(301,90),16,1 

INPUT ILBMnameî 

WINDOW CLOSE 4:WINDOW 2 

IF ILBMnameî="" THEN GOTO mcleanup 

w = 320: h = 200: d = 5 

AvailRam& = FRE(-I) 

NeededRam& = ((w/8)*h*(d+1))+5000 
IF AvailRamS < NeededRam& THEN 
GOTO Mcleanup2 
END IF 

tî=" SavelLBM" 

GOSUB GetScrAddrs 

ccrtDirX = 1 

ccrtStartX = 1 

ccrtEndX = nColorsX - 1 

ccrtSecs& = 0 

ccrtMicsS = 2000 

FOR kk = 0 TO nColorsX -1 

ctabsaveX(kk) = PEEKW(colorTab&+(kk*2)) 

NEXT 

deSecs& = ccrtSecsS * 3000 
deMicsS = ccrtMicsS / 500 
cStartS = colorTabS + (2*ccrtStart%) 
cEnd& = colorTabS + (2*ccrtEnd%) 
repeat = 80 

CALL LoadRGB4&(sViewPort&,VARPTR(ctabsav 
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e%(û)) f nColors%) 

IF (ILBMname$<>"") THEN 
saveErrorî = "" 

GOSUB SaveILBM 
END IF 
mcleanup: 

Mcleanup2: 

WINDOU 3 
FOR n=0 TO 31 

PALETTE n,red(n)/15,green(n)/15,blue(n)/ 
15 

NEXT n 
UINDOU 2 
RETURN 
SaveILBM: 
f$ = ILBMnameî 
fHandle& = 0 
mybufS = 0 

filenameî = f$ + CHRÎ(O) 

fHandle& = xOper>&(SADD(f i lenameî), 1006) 

IF fHandleS = 0 THEN 

saveErrorî = "Can't open output file" 

GOTO Scleanup 

END IF 

ClearPublic& = 65537& 
mybufsize& = 120 

mybuf& = AllocMem&(mybufsize&,ClearPubli 
c&) 

IF mybuf& = 0 THEN 

saveErrorî = "Can't alloc buffer" 

GOTO Scleanup 
END IF 

cbuf& = mybuf& 

GOSUB GetScrAddrs 
zero& = 0 
pad% = 0 
aspect% = &HA0B 
BMHDsize& = 20 

CMAPsize& = (2"scrDepth%) * 3 
CAMGsize& = 4 
CCRTsizeS = 14 

BODYsizeS = (scrUidth%/8) * scrHeight% * 
scrDepth% 

FORMsizeS = BMHDsize&+CMAPsize&+CAMGsize 
S+CCRTsize&+BODYsize&+44 
tt$ = "FORM" 

wLen& = xUrite&(fHandle&,SADD(ttî),4) 
wLen& = xUrite&(fHandle&,VARPTR(FORMsize 
&),4) 

tt$ = "ILBM" 

wLen& = xUrite&(fHandle&,SADD(ttî),4) 

IF wLen& <= 0 THEN 

saveErrorî = "Error writing FORM header" 

GOTO Scleanup 

END IF 

tt$ = "BMHD" 

wLen& = xUrite&(fHandle&,SADD(ttî),4) 
wLen& = xUrite&(fHandle&,VARPTR(BMHDsize 
&),4) 


wLen& = xUrite&(fHandle&,VARPTR(scrUidth 

%), 2 ) 

wLen& = xUrite&(fHandle&,VARPTR(scrHeigh 
t%),2) 

wLen& = xUrite&(fHandle&,VARPTR(zero&),4 
) 

tenp% = (256 * scrDepth%) 
wLen& = xUrite&(fHandle&,VARPTR(temp%),2 
) 

wLen& = xUrite&(fHandle&,VARPTR(zero&),4 
) 

wLen& = xUrite&(fHandle&,VARPTR(aspect%) 

, 2 ) 

wLen& = xUrite&(fHandle&,VARPTR(scrUidth 

%), 2 ) 

wLen& = xUrite&(fHandle&,VARPTR(scrHeigh 

t%>,2> 

IF wLen& <= 0 THEN 

saveErrorS = "Error writing BMHD" 

GOTO Scleanup 
END IF 

tt$ = "CMAP" 

wLen& = xUrite&(fHandle&,SADD(tt$),4) 
wLen& = xUrite&(fHandle&,VARPTR(CMAPsize 
&>,4> 

FOR kk = 0 TO nColors% - 1 
regtemp% = PEEKU(colorTab& + (2*kk)) 

POKE(cbuf&+(kk*3)),(regtemp% AND &HF00) 

/ 16 

POKE(cbuf&+(kk*3)+1),(regtemp% AND &HF0) 

POKE(cbuf&+(kk*3)+2),(regtemp% AND &HF) 

* 16 
NEXT 

wLen& = xUrite&(fHandle&,cbuf&,CMAPsize& 
) 

IF wLen& <= 0 THEN 

saveErrorS = "Error writing CMAP" 

GOTO Scleanup 
END IF 

tt$ = "CAMG" 

wLen& = xUrite&(fHandleS,SADD(tt$),4) 
wLen& = xUrite&(fHandle&,VARPTR(CAMGsize 
&),4) 

vpModesS = PEEKU(sViewPort& + 32) 
wLen& = xUrite&(fHandle&,VARPTR(vpModes& 
).^> 

IF wLen& <= 0 THEN 

saveErrorî = "Error writing CAMG" 

GOTO Scleanup 
END IF 

tt$ = "CCRT" 

wLen& = xUrite&(fHandle&,SADD(tt$),4) 
wLen& = xUrite&(fHandle&,VARPTR(CCRTsize 
&),4) 

wLen& = xUrite&(fHandle&,VARPTR(ccrtDir% 

), 2 ) 

temp% = (256*ccrtStart%) + ccrtEnd% 
wLen& = xUrite&(fHandle&,VARPTR(temp%),2 


) 

wLen& = xUrite&(fHandle&,VARPTR(ccrtSecs 
&) ,4) 

wLen& = xUrite&(fHandle&,VARPTR(ccrtMics 
&),4) 

wLen& = xUrite&(fHandle&,VARPTR(pad%),2) 

IF wLen& <= 0 THEN 

saveErrorî = "Error writing CCRT" 

GOTO Scleanup 
END IF 

tt$ = "BODY" 

wLen& = xUrite&(fHandle&,SADD(tt$),4) 
wLen& = xUrite&(fHandle&,VARPTR(BODYsize 
&) f 4) 

scrRowBytes% = scrUidth% / 8 

FOR rr = 0 TO scrHeight% -1 

FOR pp = 0 TO scrDepth% -1 

scrRowS = bPlane&(pp)+(rr*scrRowBytes%) 

wLen& = xUrite&(fHandle&,scrRow&,scrRowB 

ytes%) 

IF wLen& <= 0 THEN 

saveErrorî = "Error writing BODY" 

GOTO Scleanup 
END IF 
NEXT:NEXT 
saveErrorî = "" 

Scleanup: 

IF fHandleS <> 0 THEN CALL xClose&(fHand 
le&) 

IF mybuf& <> 0 THEN CALL FreeMem&(mybuf& 
,mybufsize&) 

RETURN 
GetScrAddrs: 
sUindow& = UINDOU(7) 
sScreen& = PEEKL(sUindow& + 46) 
sViewPort& = sScreen& + 44 
sRastPortS = sScreen& + 84 
sColorMap& = PEEKL(sViewPort& + 4) 
colorTabS = PEEKL(sColorMap& + 4) 
sBitMapS = PEEKL(sRastPort& + 4) 
scrUidth% = PEEKU(sScreen& + 12) 
scrHeight% = PEEKU(sScreen& + 14) 
scrDepth% = PEEK(sBitMap& + 5) 
nColors% = 2'scrDepth% 

FOR kk = 0 TO scrDepth% - 1 
bPlane&(kk) = PEEKL(sBitMap&+8+(kk*4)) 
NEXT 
RETURN 

Pen: 

GetCurrentXY 

PSET (CurrentX,CurrentY),CurrentColor 

UH ILE MOUSE(0)<>0 

GetCurrentXY 

LINE -(CurrentX,CurrentY),CurrentColor 

UEND 

RETURN 

Dpoint: 

GetCurrentXY 
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PSET (CurrentX,CurrentY),CurrentColor 

WHILE MOUSE(0)<>0 

GetCurrentXY 

PSET (CurrentX,CurrentY),CurrentColor 

UEND 

RETURN 

DrawCircle: 

GOSUB TrackRect 

CenterX=(DrawRect(1)+DrawRect(3))/2 
CenterY=(DrawRect(2)+DrawRect(0))/2 
RadiusX=(DrawRect(3)-DrawRect(1))/2 
RadiusY=(DrawRect(2)-DrawRect(0))/2 

IF RadiusX=0 OR RadiusY=0 THEN RETURN 
aspec t!=ABS(RadiusY/RadiusX) 

IF RadiusX < RadiusY THEN RadiusX=Radius 
Y 

CIRCLE (CenterX,CenterY),RadiusX,Current 
Color,,,aspect! 

RETURN 

DrawRectangle: 

GOSUB TrackRect 

LINE (DrawRectO),DrawRect(0))-(DrawRect 

(3),DrawRect(2)),CurrentColor,b 

RETURN 

ErasePicture: 

WHILE MOUSE(0)<>0 
GetCurrentXY 

LINE (CurrentX-5,CurrentY-3)-(CurrentX,C 
urrentY),1,bf 

LINE (CurrentX-5,CurrentY-3)-(CurrentX,C 

urrentY),0,bf 

WEND 

RETURN 

PaintPicture: 

PAINT (CurrentX, CurrentY),CurrentColor 

RETURN 

DrawLine: 

WHILE MOUSE(0)<>0 

GetCurrentXY 

InvertVideo 

LINE (StartX.StartY)-(CurrentX,CurrentY) 
'draw line 

LINE (StartX,StartY)-(CurrentX,CurrentY) 
'erase line 
normal video 
WEND 

LINE (StartX.StartY)-(CurrentX,CurrentY) 

.CurrentColor 

RETURN 

TrackRect: 

WHILE MOUSE(0)<>0 

GetCurrentXY 

DrawRect(0)=StartY 

DrawRectO)=StartX 

DrawRect(2)=CurrentY 

DrawRect(3)=CurrentX 

InvertVideo 

FrameRect DrawRectO 'Draw it 
FrameRect DrawRectO 'Erase it 


normalvideo 

WEND 

IF CurrentY<StartY THEN DrawRect(0)=Curr 
entY: DrawRect(2)=StartY 
IF CurrentX<StartX THEN DrawRectO)=Curr 
entX: DrawRect(3)=StartX 
RETURN 


mpalette: 

WINDOW 3: MOUSE OFF:MENU OFF:n=CurrentCo 
lor 

x1=red(n)+3:x2=green(n)+3:x3=blue(n)+3 
GOSUB placer 

10 a$=INKEY$:IF a$="" THEN 10 
IF a$=" " THEN 
n=n+1 
END IF 

IF a$="w" THEN 
n=n-1 
END IF 

IF n=32 THEN n=0 
IF n=-1 THEN n=31 
IF a$="7" THEN 
red(n)=red(n)-1 
IF red(n)<0 THEN red(n)=0 
END IF 

IF a$="8" THEN 
red(n)=red(n)+1 
IF red(n)>15 THEN red(n)=15 
END IF 

IF a$="4" THEN 
green(n)=green(n)-1 
IF green(n)<0 THEN green(n)=0 
END IF 

IF a$="5" THEN 
green(n)=green(n)+1 
IF green(n)>15 THEN green(n)=15 
END IF 

IF a$="1" THEN 
blue(n)=blue(n)-1 
IF blue(n)<0 THEN blue(n)=0 
END IF 

IF a$="2" THEN 
blue(n)=blue(n)+1 
IF blue(n)>15 THEN blue(n)=15 
END IF 

PALETTE n,red(n)/15,green(n)/15,blue(n)/ 
15 

WINDOW OUTPUT 2 

PALETTE n,red(n)/15,green(n)/15,blue(n)/ 
15 

WINDOW OUTPUT 3 

x1=red(n)+3:x2=green(n)+3:x3=blue(n)+3 
GOSUB placer 
IF a$="q" THEN 

WINDOW 2: COLOR 1,0: MOUSE ON:MENU ON 
COLOR 1,0:RETURN 
END IF 
GOTO 10 


placer: 

LOCATE 1,1:COLOR n,n:PRINT » " 

LOCATE 3,1: COLOR 1,0:PRINT''R:"; : COLOR 1, 
1:PRINT" " 

COLOR 1,0:PRINT"G:";:COLOR 1,1:PRINT" 

•i 

COLOR 1,0:PRINT"B:";:COLOR 1,1:PRINT" 

II 

COLOR 2,2 

LOCATE 3,x1:PRINT" ";:LOCATE 4,x2:PRINT" 

n. 

LOCATE 5,x3:PRINT" ";:COLOR 1,0: RETURN 
checkl: 

WINDOW OUTPUT 3:LOCATE 10,CurrentColor+1 
PRINT " ";:CurrentColor=menuitem-1 
LOCATE 10,CurrentColor+1: PRINT"*"; 
WINDOW OUTPUT 2:RETURN 
check2: 

WINDOW OUTPUT 3:LOCATE 10,CurrentColor+1 
PRINT " ";:CurrentColor=menuitem+15 
LOCATE 10,CurrentColor+1:PRINT"*"; 

WINDOW OUTPUT 2:RETURN 

SUB GetCurrentXY STAT IC 

SHARED CurrentX,CurrentY,InsideBob.BobRi 

ght.BobBottom 

dummy=MOUSE(0) 

CurrentX=MOUSE(1) 

CurrentY=MOUSE(2) 

InsideBob=-1 

IF CurrentX>BobRight OR CurrentY>BobBott 
om THEN InsideBob=0 

IF CurrentX<0 OR CurrentY<0 THEN InsideB 

ob=0 

END SUB 

SUB InvertVideo STAT IC 
CALL SetDrMdS (WINDOW(8),3) 

END SUB 

SUB normalvideo STAT IC 
CALL SetDrMdfc (WINDOW(8),1) 

END SUB 

SUB FrameRect(rectO) STATIC 
LINE (rect(1),rect(0))-(rect(3),rect(0)) 
LINE (rect(3),rect(0))-(rect(3),rect(2)) 
LINE (rect(3),rect(2))-(rect(1),rect(2)) 
LINE (rect(1),rect(2))-(rect(1),rect(0)) 
END SUB 
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AM/GA 

PUISSANCE 4 

Inspiré du célèbre jeu de société du même nom. Puissance 4 

ressemble au morpion. Le but de la manoeuvre, aligner quatre pions 

sur les lignes diagonales, horizontales ou verticales du damier. Peut 


se jouer à 2 ou contre le micro. 

SCREEN 2,320,200,5,1 

DATA 0111,10000,0,0,0 

PR INT " ORDI " 

WINDOW 2," Puissance 4",,0, 

DATA 0002,0,0,30,0 

LOCATE 14,31 

2 

DATA 0022,0,60,0,0 

PR INT " " 

•Couleurs' 

DATA 0222,15000,0,0,0 

DATA 1111,0,0,0,0 

'Valeur des cases 1 

PALETTE 0,0!,0!,0! 

DATA 2222,0,0,0,0 

FOR i=1 TO 110 

PALETTE 1,1 !, 1 !, 1 ! 

DATA 1000,0,20,20,20 

p(i)=20000 

PALETTE 4,.4,.6,1! 

DATA 0100,20,0,20,20 

NEXT i 

PALETTE 5,1 !,1 ! ,.13 

DATA 0010,20,20,0,20 

FOR i=39 TO 47 

PALETTE 6,.93,.2,0! 

DATA 0001,20,20,20,0 

p(i)=-1 

PALETTE 7,.47,.87,1! 

DATA 2000,0,30,30,30 

NEXT i 

PALETTE 8,.33,.87,0! 

DATA 0200,30,0,30,30 

FOR i=102 TO 110 

PALETTE 9,1!,.5,0! 

DATA 0020,30,30,0,30 

p(i)=-1 

PALETTE 10,0!,0!,0! 

DATA 0002,30,30,30,0 

NEXT i 


DATA 1100,0,0,40,40 

FOR i=39 TO 102 STEP 9 

•Plateau de jeu' 

DATA 0110,40,0,0,40 

p(i)=-1 

COLOR 4,0 

DATA 0011,40,40,0,0 

NEXT i 

LINE (5,10)-(220,195),,bf 

DATA 1001,0,40,40,0 

FOR i=47 TO 110 STEP 9 

FOR ac=20 TO 200 STEP 30 

DATA 1010,0,40,0,40 

p(i)=-1 

FOR oc=25 TO 175 STEP 30 

DATA 0101,40,0,40,0 

NEXT i 

CIRCLE (ac,oc),10,0,,,.88 

DATA 2200,0,0,60,60 


PAINT (ac,oc),0,0 

DATA 0220,60,0,0,60 

'Qui commence ?' 

NEXT oc 

DATA 0022,60,60,0,0 

coup: 

NEXT ac 

DATA 2002,0,60,60,0 

WHILE MOUSE(0)=0:WEND 


DATA 2020,0,60,0,60 

mx=MOUSE < 1 ): my=MOUSE ( 2 ) 

■Floches' 

DATA 0202,60,0,60,0 

WHILE MOUSE(0)<>0:WEND 

FOR ï = 10 TO 190 STEP 30 

DATA 0111,1000,0,0,0 

IF mx>240 AND mx<296 AND my>40 AND my<72 

LINE (i,0)-(i+20,0),4 

DATA 1011,0,1000,0,0 

THEN GOTO coupvous 

LINE ( i+20,0)- ( i+10,10),4 

DATA 1101,0,0,1000,0 

IF mx>240 AND mx<296 AND my>88 AND my<12 

LINE ( i+10,10)-(i,0) 

DATA 1110,0,0,0,1000 

0 THEN GOTO coupordi 

NEXT i 

DATA 0222,1500,0,0,0 

GOTO coup 

FOR i=20 TO 200 STEP 30 

DATA 2022,0,1500,0,0 


PAINT (i,5),7,4 

DATA 2202,0,0,1500,0 

coupvous: 

NEXT i 

DATA 2220,0,0,0,1500 


' initialisations' 

•démarrage' 

PALETTE 7,.93,.2,0! 

GOSUB colp 

DIM pC140) 

LOCATE 6,31 

sourisf: 

DIM c(110) 

COLOR 0,6 

WHILE MOUSE(0)=0:WEND 

DIM cv(36,90) 

PR INT » 

mx=MOUSE(1):my=MOUSE ( 2 ) 

FOR i=1 TO 36 

LOCATE 7,31 

WHILE MOUSE(0)<>0:WEND 

READ c(i ) 

PR INT " VOUS " 

v=93 

FOR j=1 TO 4 

LOCATE 8,31 

FOR i=10 TO 190 STEP 30 

READ cv(i,j ) 

PR INT » 

v=v+1 

NEXT j 

LOCATE 12,31 

IF mx>i AND mx<i+20 AND my<10 THEN GOTO 

NEXT i 

COLOR 0,5 

caspj 

DATA 0001,0,0,20,0 

PR INT " " 

NEXT i 

DATA 0011,0,40,0,0 

LOCATE 13,31 

GOTO sourisf 
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caspj: 

FOR g=0 TO -27 STEP -9 

p(v+h+g)=p(v+h+g)+cv(j, d) 

FOR i=1 TO 6 

i=0 

NEXT h 

IF p(v)>2 AND p(v+9)<3 THEN GOTO suitel 

FOR k=0 TO 27 STEP 9 

RETURN 

v=v-9 

i=i+1 


NEXT i 

GOSUB valeur 

jgain: 

GOTO sourisf 

NEXT k 

FOR q=1 TO 10 

suitel : 

FOR j=1 TO 8 

FOR s=6 TO 0 STEP-6 

GOSUB calculao 

IF c(j)=(a(1)*1000)+(a(2)*100)+(a(3)*10) 

COLOR s,6 

PAINT (ab,ord),6,4 

+a(4) THEN GOSUB nouval 

LOCATE 7,31 

p(v)=1 

NEXT j 

PRINT " GAIN 11 

GOSUB analcav 

NEXT g 

FOR r=1 TO 1000:NEXT r 

GOSUB analcho 

RETURN 

NEXT s 

GOSUB analcdl 


NEXT q 

GOSUB analcd2 

analcho: 

LOCATE 7,31 


FOR g=0 TO -3 STEP -1 

PRINT " VOUS " 

coupordi: 

i=0 

END 

PALETTE 7,1!,1! # .13 

FOR k=0 TO 3 STEP 1 


GOSUB colp 

i=i+1 

ogain: 


GOSUB valeur 

FOR q=1 TO 10 

•cases libres' 

NEXT k 

FOR s=5 TO 0 STEP-5 

z=0 

GOSUB variableho 

COLOR s,5 

FOR c=94 TO 100 

NEXT g 

LOCATE 13,31 

z=z+1 

RETURN 

PRINT » GAIN " 

FOR i=0 TO 45 STEP 9 


FOR r=1 TO 1000:NEXT r 

IF p(c-i)>2 AND p(c-i+9)<3 THEN v(z)=c-i 

analcdl: 

NEXT s 

NEXT i 

FOR g=0 TO 24 STEP 8 

NEXT q 

NEXT c 

i=0 

LOCATE 13,31 


FOR k=0 TO -24 STEP -8 

PRINT » ORDI » 


i=î+1 

END 

h 

n 

o 

n 

c 

GOSUB valeur 


pfc: 

NEXT k 

firstc: 

IF p(v(i))<p(v(j+1)) THEN GOSUB compl 

GOSUB variabledl 

RANDOMIZE TIMER 

IF p(v(i})>p(v(j+1)) THEN GOSUB comp2 

NEXT g 

f=INT(RND*3)+1 

IF p(v(i))=p(v(j+1)) THEN RANDOMIZE TIME 

RETURN 

v=57+f 

R:b=INT(RND*3)+1 


RETURN 

IF b=1 THEN GOSUB compl 

analcd2: 


IF b=2 THEN GOSUB comp2 

FOR g=0 TO 30 STEP 10 

calculao: 

b=0 

i=0 

x=((v-20)-INT((v-20)/9)*9)-1 

GOTO pfc 

FOR k=0 TO -30 STEP -10 

y=(9-INT((v-20)/9)) 

meillcase: 

i = i+1 

FOR i=1 TO 7 

v=v(z) 

GOSUB valeur 

IF x=i THEN ab=(x*30)-10 

GOSUB calculao 

NEXT k 

NEXT i 

PAINT (ab,ord),5,4 

GOSUB variabled2 

FOR i=1 TO 6 

p(v)=2 

NEXT g 

IF y=i THEN ord=(205-<y*30)) 

GOSUB analcav 

RETURN 

NEXT i 

GOSUB analcho 


RETURN 

GOSUB analcdl 

valeur: 


GOSUB analcd2 

IF p(v+g+k)=1 THEN a(i)=1 

variableho: 

GOTO coupvous 

IF p(v+g+k)=2 THEN a(i)=2 

FOR J=7 TO 38 


IF p(v+g+k)=-1 THEN a(i)=-1 

IF c(j)=(a(1)*1000)+(a(2)*100)+(a(3)*10) 

colp: 

IF p(v+g+k)>2 THEN a(i)=0 

+a(4) THEN GOSUB nouvalho 

w=0 

FOR i=49 TO 55 

IF p(i)<3 THEN PAINT (i-36+w,1),0,4 

RETURN 

nouval: 

NEXT j 

RETURN 

w=w+30 

IF j=7 THEN GOSUB jgain 

nouvalho: 

NEXT i 

IF j=8 THEN GOSUB ogain 

GOSUB testgain 

RETURN 

d=0 

FOR h=0 TO 3 


FOR h=0 TO 27 STEP 9 

GOSUB newval 

analcav: 

d=d+1 

NEXT h 
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RETURN 

RETURN 

testgain: 

variabledl: 

nouvald2: 

IF j=7 THEN GOSUB jgain 

IF j=8 THEN GOSUB ogain 

FOR j=7 TO 38 

GOSUB testgain 

FOR e=1 TO 4 

IF c(j)=(a(1)*1000)+(a(2)*100)+(a(3)*10) 

FOR h=0 TO -40 STEP -10 

IF j=28+e AND p(v+9)<2 THEN cv(j,e)=1000 

+a(4) THEN GOSUB nouvaldl 

GOSUB newval 

0 

NEXT j 

NEXT h 

IF j=32+e AND p(v+9)<2 THEN cv(j,e)=3000 

RETURN 

RETURN 

0 

nouvaldl: 

compl : 

NEXT e 

u=0 

GOSUB testgain 

n=n+1 

RETURN 

FOR h=0 TO -24 STEP -8 

GOSUB newval 

IF n=6 THEN v(z)=v(j+1):GOTO meillcase 
i=j+1 

newval : 

NEXT h 

j=j + 1 

u=u+1 

RETURN 

RETURN 

p(v+g+h)=p(v+g+h)+cv(j,u) 

variabled2: 

comp2: 

IF p(v+g+h+9)>2 AND j=33 OR j=34 OR j=35 

OR j =36 THEN p(v+g+h+9)=p(v+g+h+9)+cv(j 

FOR j=7 TO 38 

n=n+1 

,u) 

IF c(j)=(a(1)*1000)+(a(2)*100)+(a(3)*10) 

IF n=6 THEN v(z)=v(i):GOTO meillcase 

IF p(v+g+h+9)>2 THEN p(v+g+h+9)=p(v+g+h+ 

+a(4) THEN GOSUB nouvald2 

j*j+1 

9)-cv(j,u) 

NEXT j 

RETURN 

RETURN 


AM/GA 

SINUS 

L’Amiga comme professeur de mathématique, une bonne raison de 

comprendre les fonctions trigonométriques. 

Sinus vous offre les représentations graphiques des courbes de vos équations. 

DEFINT a-w:DIM ordon(999) 

Pratique et utile. 

IF chg$="p" THEN RUN ELSE IF chg$="r" TH 

RETURN 

fenetre:'definition des 2 fenetres 

EN GOSUB son :ELSE END 

GOTO fenetre 

axes: 1 trace des axes & emplacement des p 

SCREEN 1,640,200,2,2 

defin: 1 largeur?,hauteur? 

arametres 

WINDOW 2,"courbes", < 1, 1) -<61 2 , 1 25 > ,31, 1 


WINDOW OUTPUT 2:LINE(306,15)-(306,120) 

WINDOW 3,"fonction",(1,140)-(612,185),31 

INPUT"largeur";BIG : INPUT"hauteur";PIG 

LI NE(10,57)-(605,57) 

,1 

111 =-15 : PAS ! = . 1 :' début & pas de la cour 

WINDOW OUTPUT 3 

GOSUB defin 

be 

CLS:LOCATE 2,35:PRINT"PARAMETRES" 

GOSUB axes 

12!=15: • fin 

LOCATE 4,8:PR INT"LARGEUR ";BIG;" HAUTEUR 

GOSUB trace 

RETURN 

" ; PIG 

GOSUB son 


LOCATE 4,49:PRINT"DEBUT 1 1 !;" FIN ";I2 

WHILE INKEY$<>" ":WEND 

trace: 

!;" PAS ";PAS! 

WINDOW OUTPUT 3:CLS:LOCATE 4,27 


RETURN 

PRINT"[ c ] pour creer une fonction" 

FOR trace!= II! TO 12! STEP PAS! 
x= trace!:compteur=compteur+1 

son:'musique (do do do re mi re)modifiab 

quest$=INPUT$(1 ) : IF quest$="c" THEN LIST 

GOSUB fon 

le 

fon:END 

WINDOW OUTPUT 2 


CLS:LOCATE 3,16 

PSET (x*BIG+306,ordon(compteur)*PIG+57) 1 

POKE 12574721&,252 

PRINT"Changer les paramétrés [p] ou reec 

trace de la courbe 

WAVE 0,ordon 

outer [r]" 

POKE 12574721&.254 


chg$=INPUT$(1 ) 

NEXT trace! 

WAVE 1,ordon 
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fon:'** MODIFIEZ LA FONCTION ** 


WAVE 2,ordon SOUND 146.83,10,100,0 

WAVE 3,ordon SOUND 164.81,20,100,0 

SOUND 130.81,10,100,0:SOUND 0,2,0,0 SOUND 146.83,20,100,0 ordon(compteur)=SQR(x*x)-32*(SIN(x)*COS( 

SOUND 130.81,10,100,0:SOUND 0,2,0,0 RETURN s/5>) 

SOUND 130.81,10,100,0 RETURN 



AM/GA 


VILLES DE FRANCE 

Ce programme est avant tout une base de données. 

On y retrouve les principales villes 

de notre pays. 

toutes situées géographiquement sur la carte. 

Un logiciel éducatif précis et bien réalisé. 

SCREEN 2,320,200,5,1 

NEXT î 

LOCATE 10,32:PR INT " " 

WINDOW 2," Villes de FRANCE",, 

FOR i=1 TO 36 STEP 2 

LOCATE 2,26:PRINT " " 

0,2 

LINE (cr(i)+5,cr(i+1))-<cr(i+2)+5,cr(i+3 

NEXT i 

PALETTE 0,0!,0!,0! 

)),2 

NEXT r 

PALETTE 1,11,11,1! 

NEXT i 

FOR i=1 TO 10000:NEXT i 

PALETTE 2,0!,0!,0! 

PALETTE 2,.47,.87,1! 

CLS 

PALETTE 3,1 !,1 !,.13 

FOR t=1 TO 87 

i=0 

PALETTE 4,.93,.2,0! 

READ v$(t):READ x(t):READ y(t) 

compl: 

quest: 

NEXT t 

i=j + 1 

COLOR 3,0:LOCATE 10,4:INPUT"Nombre de jo 

LOCATE 12,24:PRINT "Points" 

comp2: 

ueurs (1 l 4) ";nbj 

LOCATE 10,24:PRINT "Erreur : Kms ! " 

j=j+1: IF j+1>nbj THEN GOTO gain 

IF nbj>4 THEN CLS:GOTO quest 

FOR i=1 TO nbj 

IF dist(i)<dist(j+1) THEN GOTO comp2 ELS 

FOR i=1 TO nbj 

LOCATE i+13,24:PRINT nj$(i);" :" 

E GOTO compl 

LOCATE i+10,4:PRINT "joueur ";i ;:INPUT 

NEXT i 

gain: 

nj$(i) 

LOCATE 2,26:PRINT nj$<1);" ," 

LOCATE 10,2:PRINT "Le gagnant est nj 

NEXT i 

LOCATE 3,24: PR INT "Oy se trouve ?" 

$<i) 

CLS 


LOCATE 12,2:PR INT "avec une moyenne d'er 

LOCATE 10,4:INPUT"Nombre de tours de jeu 

FOR r=1 TO tj 

reur de:«;INT(dist(i)/tj) ;"Kms" 

";tj 

COLOR 3,0:LOCATE 7,24:PRINT "Coup: ";r 

LOCATE 15,2:PR INT "Pour rejouer cliquez 

FOR i= 1 TO 1000:NEXT i 

RANDOMIZE TIMER 

sur 'Start' 

CLS 

FOR i=1 TO nbj 

COLOR 3,0:LOCATE 2,26:PRINT nj$(i);" :" 

LOCATE 16,2:PRINT "*■ la barre du Menu." 

DIM c(234) 

vi=INT(RND*87)+1 


DIM cr(38) 

COLOR 4,0:LOCATE 5,25:PRINT v$(vi) 

DATA 3,52,5,48,8,46,20,46,21,43,28,43,32 

DIM v$(87) 

WHILE MOUSE(0)=0:WEND 

,50,44,47,43,50,48,51 

DIM x(100) 

mx=MOUSE ( 1 ) :my=MOUSE ( 2) 

DATA 49,50,48,48,48,38,43,31,45,30,42,27 

DIM y(100) 

WHILE MOUSE(0)<>0:WEND 

,48,29,52,28,53,33,52,36 

DIM dist(4) 

PSET(mx,my),3 

DATA 54,37,55,35,67,37,76,33,76,32,70,32 


PSET(x(vi),y(vi)),4 

,72,29,90,19,92,19,90,17 

FOR i=1 TO 234 

a=ABS(mx-x(vi)):b=ABS(my-y(vi)) 

DATA 91,5,103,0,107,7,111,6,114,11,117,1 

READ c(i ) 

dist=INT(SQR(a‘2+b‘2)*(5.4)) 

1,119,15,123,15,125,20,131,20 

NEXT i 

LOCATE 10,32:PRINT dist 

DATA 133,18,133,22,142,31,156,31,166,39, 

FOR i=1 TO 232 STEP 2 

FOR g=1 TO 10000:NEXT g 

169,38,181,41,177,46,173,58,174,71 

LINE (c<i),c(i+1))-(c(i+2),c(i+3)),2 

dist(i)=dist(i)+dist 

DATA 172,73,165,71,165,75,167,75,155,91, 

NEXT i 

PRESET(mx,my): PRESET(x(vi),y(vi)) 

155,100,158,96,163,96,166,106,161,106 

FOR i=1 TO 38 

LOCATE i+13,33:PRINT dist(i) 

DATA 161,108,168,112,170,120,166,120,164 

READ cr(i) 

LOCATE 5,25:PR INT " » 

,123,168,126,170,135,184,141,184,144,166 
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,157 

DATA 166,162,153,164,140,158,125,155,111 
,164,113,178,108,178,105,180,91,178,91,1 
74 

DATA 75,170,75,173,57,171,43,165,44,161, 

38,158,41,157,45,145,50,115,54,118 

DATA 56,125,60,128,58,124,56,116,50,110, 

50,100,52,98,46,98,38,87,40,82 

DATA 37,80,38,78,46,79,37,76,36,78,32,76 

,35,73,12,62,10,64,6,58 

DATA 10,58,10,56,6,56,6,54,10,54,10,51,3 

,52 

DATA 180,157,180,151,182,153,182,158,184 
,165,180,184,179,182,174,181,173,179,174 
,177 

DATA 171,174,173,172,172,172,173,170,170 
,168,171,165,170,163,176,158,180,157 
DATA Lille,110,9,Arras,106,16,Amiens,100 
,23,Charleville.M,131,25,Laon,117,31 
DATA Beauvais,97,33,Rouen,83,34,Met z,152 


,38,Caen,65,39,St Lo,54,40 
DATA Evreux,84,41.Chalons s/ M,126,43,Ba 
r Le Duc,139,46,Nancy,150,47,Strasbourg, 
174,48 

DATA Melun,116,51,St Brieux,30,50,Chartr 
es,88,52,Aler>|on,70,53,Troyes,123,57 
DATA Rennes,45,57,Quimper,11,59,Laval,59 
,59,Chaumont,139,60,Colmar,169,61 
DATA Le Mans,71,61 ,Orl-fans,96,63,Auxerre 
,117,65,Vannes,28,67,Vesoul,154,67 
DATA B loi s,87,70,Angers,41,73,Dijon,136, 
74,Tours,78,76,Nantes,45,77 
DATA Besao)on,152,77,Bourges,100,82,Neve 
rs,112,83,Chtteauroux,90,88,Lons Le Saun 
ier,146,89 

DATA La Roche s/ Yon,46,90,Poitiers,72,9 
1, Moulins, 114,95,Niort,63,96,M*=con,135,9 
7 

DATA Bourg en Bresse,141,99,La Rochelle, 
51,100,Gufret,95,102,Annecy,155,105,Limo 


ges,85,106 

DATA Lyon,136,108,Clermont Fd,110,110,Ba 
stia,186,157,Ajaccio,179,171,Chambfry,15 
3,111 

DATA St Etienne,130,115,Tulle,91,120,Gre 
noble, 151,120, P-f ri gueux, 76,122, Le Puy,12 
1,122 

DATA Aurillac,100,126,Valence,138,126,Bo 
rdeaux,60,128,Privas,133,130,Gap,155,132 
DATA Cahors,88,134,Mende,116,135,Angoul r 
me,69,110,Agen,75,138,Rodez,105,138 
DATA Digne,157,142,Mont de Marsan,57,147 
.Avignon,139,145,Nice,177,147,Albi,99,14 
9 

DATA Ni mes,130,149,Auch,74,153,Montpe11i 
er,122,152,Toulouse,86,154,Marseille,146 
,158 

DATA Pau,59,158,Toulon,156,162,Tarbes,66 
,162,Carcassonne,100,163,Foix,88,167 
DATA Perpignan,108,172,Pari s,98,47 
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AMSTRAD 

A LA RECHERCHE DU ROI 

RICHARD 

Ce jeu d’aventure est très fourni en vocabulaire et, ce qui n’est pas 
à négliger le graphisme est soigné. Il plaira 
aux passionnés de ce genre de jeux. A la recherche du roi Richard 
démontre que le basic Amstrad n’a rien à envier aux autres. 

Le listing comporte deux programmes qu’il faut taper et sauver à la suite. 


LISTING N° 1 

10 ’ 

20 ’ A LA RECHERCHE DU ROI RICHARD ( L 
OADER ) 

30 * 

40 ’ (C) 1987 Olivier Darras 

50 ’ 

60 MODE 2 :CALL &BC02:CALL &BB03:CALL &BB 
4E 

70 SYMBOL AFTER 65 

80 RESTORE 100:FOR x=97 TO 122:READ a,b, 
c,d,e,f,g,h:SYMBOL x.a.b.c.d.e.f.g.h:NEX 
T 

90 RESTORE 100:FOR x = 65 TO 90 :READ a,b,c 
.d,e,f,g,h : SYMBOL x.a.b.c.d.e.f.g.h:NEXT 
100 DATA &0 , &0 , A.38 . &4C .&4C.&.4C.&.3A.4.0 
110 DATA &C0.&40.&78.&44.&42.&44.&78.&0 
120 DATA &0,&0,&1C,&20,&40,&20,&1C,&0 
130 DATA &6.&4.&3C.&44.&84.&44.&3E.&0 
140 DATA &0.&.0.&1C.422.&3C.A20.&5E.&0 
150 DATA &18.&24.&20.&78.&.20.&20.&30.&0 
160 DATA &0 , &.0 ,&,38,&44,&3C,&4,&.44,à3C 
170 DATA &60.&20.&28.&34.&24.&24.&24.&0 
180 DATA &10,&0,&30,&.10,&10,&.10,&18.&0 
190 DATA &08,&0,&C,&8.&8,&48,&48.&38 
200 DATA &20.&24.&28.&38.&28.&24.&26.&0 
210 DATA &30,410.&10,&10,&10,410,&18,&0 
220 DATA &0 , &0 , &A8 ,&54 ,&54 ,&54 ,&54 , &.0 
230 DATA &0.&0.&50.&28.&28.&28.&2C.&0 
240 DATA &0.&0.&1E.&24,&24,&24,&78,&0 
250 DATA &0,&0,&7C.&24.&24,&78,&20.&20 
260 DATA &0 ,&0 ,&3A,&44 ,&44 .&3C.&4 ,&4 
270 DATA &0,&0,&58,&24,&20,&20,&20,&0 
280 DATA &0.&0.&1C.&20.&3C.&4.&38.&0 
290 DATA &10,&10,&3C,410,&10,&10,&30,&0 
300 DATA &0.&0.&6C.&24.&24.&24.&3C.&0 
310 DATA &0.&0.&CC.&44.444.&.28.&10.&.0 
320 DATA &0.&0.&6A,&2A.&2A,&2A,&14,&0 
330 DATA &0.&0.&44.&28.&10.&28.&44.&0 
340 DATA &.0 , &.0 , &.6C ,&24 ,&24 .&3C.&.4 .&.7C 
350 DATA &0.&0.&7C.&48.&10.&24.&7C.&0 
360 LOCATE 26,1 : PRINT"A LA RECHERCHE DU 
ROI RICHARD" : LOCATE 26.2-.PRINT STRINGS (2 
9 , ) 


370 LOCATE 3,5 : PRINT"VOTRE MISSION EST A 
LA FOIS SIMPLE ET CAPITALE : RETROUVER 
LE ROI RICHARD" 

380 LOCATE 3.6:PRINT"QUE LE PERFIDE PRIN 
CE JEAN TIENT PRISONNIER DANS UNE GEOLE 
PERDUE DANS LA" 

390 LOCATE 3,7:PRINT"FORET." 

400 LOCATE 3,9:PRINT"VOTRE QUETE SERA SE 
MEE D’EMBUCHES MAIS SURTOUT PERSEVEREZ : 

LA VICTOIRE EST" 

410 LOCATE 3,10:PRINT"AU BOUT." 

420 LOCATE 3,12 : PRINT"VOUS ENTAMEZ L’AVE 
NTURE VOUS-MEME DETENU DANS UN CACHOT DU 
CHATEAU DU PRINCE" 

430 LOCATE 3,13 :PRINT"JEAN." 

440 LOCATE 3,15 :PRINT"EVADEZ-VOUS ET VOL 
EZ AU SECOURS DU ROI,JE VOUS SOUHAITE BO 
NNE CHANCE." 

450 LOCATE 12.23 :PRINT"veuiIlez patiente 
r pendant que le programme se charge." 
460 RUN"! ROI 


LISTING N° 2 

70 CALL &BB18 

80 ON BREAK GOSUB 4740 

90 DIM S$(10),T$(3),F$(11),Z$(11):S$(0)= 
"PREND": SS(1)="EXAMINE": SS(2) = "TUE": SS(3 
)="DONNE": SS(4)="SOULEVE": SS(5)="OUVR": S 
$(6)="FOUILLE":TS(0)="NORD":T$(1)="SUD": 
TS(2)="EST":TS(3)="OUEST":NS="AUCUNE." 
100 RANDOMIZE TIME :DEFINT A-Z:GOSUB 4650 
: MODE 2 :WINDOW#l,5,54,5,16:WINDOW#2,5,75 
,18,24:WINDOW#3,58,80,5,16 
110 MOVE 20,340:DRAW 440,340:DRAW 440,14 
0 : DRAW 20,140:DRAW 20.340:MOVE 450,340:D 
RAW 610,340:DRAW 610,140:DRAW 450,140:DR 
AW 450,340 

120 MOVE 20,130:DRAW 610,130:DRAW 610,10 
: DRAW 20,10:DRAW 20,130 

130 RESTORE 160:FOR Q=0 TO 3 :READ Z$(Q): 
KEY Q,Z$(Q)+CHRS(13):NEXT: FOR Q=4 TO 10: 
READ Z$(Q):KEY Q,ZS(Q):NEXT:READ ZS(ll): 
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AMSTRAD 










KEY 11 ,Z$(11)+CHR$(13) 

140 RESTORE 150:FOR T = 0 TO 11 :READ F$(T) 

: PRINT#3,F$(T) ; " -> ";Z$(T):NEXT 
150 DATA "F 0" , "F 1","F 2", "F 3". "F 4"," 
F 5"."F 6","F 7","F 8","F 9"." . "."ENTE 
R” 

160 DATA "N"."S","E","O"."PRENDS "."EXAM 
INE "."TUE "."DONNE "."SOULEVE "."OUVRE 
"."FOUILLE "."INVENTAIRE" 

170 ’ 

180 ’ 

190 CLS#1:CLS#2: RESTORE 3850:FOR Q=0 TO 

9:READ A$(Q): NEXT 

200 GOSUB 4200 : PRINT#1,A$(0) 

210 GOSUB 4230:PRINT#1,A$(1) : IF POR = 0 TH 
EN PRINT#1,A$(2) ELSE PRINT#1.A$(8) 

220 PRINT#1,AS(4) 

230 IF PIC = 0 THEN PRINT#1,A$(3) 

240 IF PAI=1 AND CLE=0 THEN PRINT#1.A$(5 
) ; " . " ; A$(6) :PRINT#1,A$(9) 

250 IF CLE= 1 THEN 260 

260 GOSUB 4240:IF POR=l THEN PRINT#1.A$( 
7);"." ELSE PRINT#1,N$ 

270 GOSUB 4170 

280 IF RIGHT$(C$.3)="SUD" OR C$="S" THEN 
380 

290 IF RIGHT$(C$,4)=T$(0) OR C$=Z$(0) OR 
RIGHT$(C$.3)=T$(2) OR C$=Z$(2) OR RIGHT 
$(C$,5)=T$(3) OR C$ = Z$(3) THEN GOSUB 445 
0 : GOTO 270 

300 IF LEFT$(C$,7)=S$(1) AND RIGHT$(C$,7 
)="FENETRE" THEN GOSUB 4490:GOTO 270 
310 IF LEFT$(C$,7)=S$(1) AND RIGHT$(C$,5 
)="PORTE" THEN GOSUB 4490:GOTO 270 
320 IF LEFT$(C$,7)=S$(1) AND RIGHT$(C$,6 
)="PAILLE" OR LEFT$(C$,7)=S$(6) AND RIGH 
T$(C$,6)="PAILLE" THEN 390 
330 IF (LEFT$(C$,7)=S$(1) OR LEFT$(C$.7) 
=S$(6)) AND RIGHTS(C$,6)="CACHOT" THEN G 
OSUB 4540:GOTO 270 

340 IF LEFT$(C$,5)=S$(0) AND RIGHT$(C$.3 
)="CLE" THEN 400 

350 IF LEFT$(C$.5)=S$(0) AND RIGHT$(C$,6 
)="PICHET" OR LEFT$(CS,5)=S$(0) AND RIGH 
TS(CS,3)="EAU" THEN 420 

360 IF LEFT$(C$.4)=S$(5) AND RIGHT$(C$,5 

)="PORTE" THEN 430 

370 GOSUB 4250 : GOTO 270 


380 

IF 

POR = 0 

THEN 

GOSUB 

4450 : GOTO 

270 

EL 

SE 

470 







390 

IF 

PA 1 = 1 

THEN 

GOSUB 

4510:GOTO 

270 

EL 

SE 

PA I = 

: 1 :GOSUB 4400 : GOTO 

' 200 



400 

IF 

CLE= 1 

THEN 

GOSUB 

4 510 : GOTO 

270 


410 

IF 

PA 1=0 

THEN 

GOSUB 

4 2 50 : GOTO 

270 

EL 

SE 

CLE = 

1:GOSUB 4400:GOTO 

200 



420 

IF 

PIC=1 

THEN 

GOSUB 

4510:GOTO 

270 

EL 

SE : 

PIC = 

1 :GOSUB 4400 : GOTO 

200 



430 

IF 

POR= 1 

THEN 

GOSUB 

4 510 : GOTO 

270 


440 

IF 

CLE = 0 

THEN 

GOSUB 

4460 : GOTO 

270 

EL 


SE POR =1 :GOSUB 4400:GOTO 200 
450 ’ 

460 ’ 

470 GOSUB 4480:RESTORE 3860:FOR Q=0 TO 4 
:READ AS(Q):NEXT 

480 GOSUB 4 2 0 0 : PRINT #1,A $(0) ;" , "; A $(1) :P 


RINT#1,AS(2):GOSUB 4230:GOSUB 4520:GOSUE 
4240 :PRINT#1,AS(3);",";AS(4) 

490 GOSUB 4170 

500 IF RIGHTS(C$.5)=T$(3) OR C$="0" THEN 
GOSUB 4450:GOTO 490 

510 IF RIGHTS(C$,4)=T$(0) OR C$="N" THEN 
ERASE AS:GOTO 190 

520 IF RIGHTS(C$,3)=T$(1) OR C$="S" THEN 
580 

530 IF RIGHTS(C$,3)=T$(2) OR C$="E" THEN 
1240 

540 IF LEFTS(C$,7)=S$(1) AND RIGHT$(C$.7 
)="COULOIR" THEN GOSUB 4490:GOTO 490 
550 GOSUB 42 50 : GOTO 490 
560 1 
570 ’ 

580 GOSUB 4480:RESTORE 3860 : FOR Q = 0 TO 2 
: READ AS(Q) :NEXT:RESTORE 3870:FOR Q=3 TC 
5:READ A$(Q):NEXT 

590 GOSUB 4200 :PRINT#1.AS(0) ;","; AS(1) : F 
RINT#1,AS(2) :GOSUB 42 30 :PRINT#1,A$(3) : GO 
SUB 4 240:PRINT#1.AS(4);".";AS(5 ) 

600 GOSUB 4170 

610 IF RIGHTS(C$,4)=T$(0) OR C$="N" THEN 
470 

620 IF RIGHTS(C$,3)=T$(1) OR C$="S" THEN 
690 

630 IF RIGHTS(C$,5)=T$(3) OR C$="0" THEN 
810 

640 IF RIGHTS(CS,3)=T$(2) OR C$="E" THEN 
GOSUB 4 4 50 : GOTO 600 

650 IF LEFTS(C$,7)=S$(1) AND RIGHT$(C$,7 
)="COULOIR" THEN GOSUB 4490:GOTO 600 
660 GOSUB 4250:GOTO 600 
670 ’ 

680 ’ 

690 GOSUB 4480:RESTORE 3860:FOR Q=0 TO 2 
:READ AS(Q):NEXT:RESTORE 3880:FOR Q=3 TC 
8 :READ A$(Q) :NEXT 

700 GOSUB 4 2 0 0 : PRI NT#1,A $(0) ;","; A $(1) :F 
RINT#1,AS(2) : PRINT#1.A$(3) :PRINT#1,A$(4) 
:GOSUB 4 2 30 :PRINT#1.A$(5) : PRINT#1,AS(6) 
710 GOSUB 4240 :PRINT#1,AS(7);",";AS(8) 
720 GOSUB 4170 

730 IF RIGHTS(C$,5)=T$(3) OR C$="0" THEN 
GOSUB 4 4 50 : GOTO 720 

740 IF RIGHTS(C$,4)=TS(0) OR C$="N" THEN 
580 

750 IF RIGHTS(C$,3)=T$(1) OR C$="S" THEN 
1200 

760 IF RIGHTS(C$,3)=T$(2) OR C$="E" THEN 
1010 

770 IF LEFTS(CS,7)=S$(1) AND RIGHT$(C$,7 
)="COULOIR" THEN GOSUB 4490:GOTO 720 
780 GOSUB 42 50 : GOTO 720 
790 ’ 

800 

810 GOSUB 4480:RESTORE 3890:FOR Q=0 TO S 
:READ AS(Q):NEXT 

820 GOSUB 4 200 :PRINT#1,AS(0):GOSUB 4230: 
IF PRI=1 THEN PRINT#1,AS{9) ELSE PRINT#1 
, AS(1) 

830 GOSUB 4240 :PRINT#1,AS(2) 

840 GOSUB 4170 

850 IF RIGHTS(C$,4)=T$(0) OR C$="N" THEN 
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GOSUB 4450:GOTO 840 

860 IF RIGHT$(C$,3)=T$(1) OR C$="S" THEN 
GOSUB 4450:GOTO 840 

870 IF RIGHT$(CS,5)=T$(3) OR C$="0" THEN 
GOSUB 4450:GOTO 840 

880 IF RIGHTS(C$,3)=T$(2) OR C$="E" THEN 
580 

890 IF LEFT$(C$,5)= S$(3) AND RIGHT$(C$ t 6 
)="PICHET" OR LEFT$(C$,5)=S$(3) AND RIGH 
T$(C$,3)="EAU" THEN 940 

900 IF LEFT$(C$,3)= S$(2) AND RIGHTS(C$,1 
0)="PRISONNIER" THEN 960 

910 IF LEFTS(C$,7)=S$(6) AND RIGHT$(C$,1 
0)="PRISONNIER" THEN 970 

920 IF LEFTS(C$,4)=S$(5) AND RIGHT$(C$,6 
) =‘•CACHOT" THEN GOSUB 4460: GOTO 840 
930 GOSUB 4250-.GOTO 840 
940 IF PRI =1 THEN GOSUB 4460:GOTO 840 
950 IF PIC=0 OR EAU=1 THEN PRINT#2,"VOUS 
N’AVEZ PAS D’EAU.":GOTO 840 ELSE GOSUB 
4400-.GOTO 980 

960 1F PRI=1 THEN PRINT#2,"IL EST DEJA M 
ORT !":GOTO 840 ELSE PRI=1:GOSUB 4400:GO 
TO 820 

970 IF PRI=0 THEN GOSUB 4460:GOTO 840 EL 
SE PRINT#2,"LE PAUVRE BOUGRE N’AVAIT RIE 
N A PART SES MITEUSES NIPPES !":GOTO 840 
980 PR1 = 1 :EAU=1:GOSUB 4200 :PRINTtl,AS(0) 

: PRINT#1 : PRINT#1,AS(3AS(4):PRINT#1 
,AS(5) : PRINT#1,AS(6) :PRINT#1.A$(7) :GOSUB 
4 2 3 0 : PRINT#1,A $(9) :GOSUB 4 240:PRINT#1,A 
$(2) : GOTO 840 
990 ’ 

1000 ’ 

1010 GOSUB 4480:RESTORE 3910:FOR Q=0 TO 
3 :READ A$(Q):NEXT 

1020 GOSUB 4 2 0 0 : PRINT#1,A $(0) ;","; A $(1) : 
GOSUB 4230:IF SOL=l THEN PRINT#1,AS(3) E 
LSE GOSUB 4520 

1030 GOSUB 42 40 : PR INT#1,AS(2) 

1040 GOSUB 4170 

1050 IF RIGHTS(C$,5)=T$(3) OR C$="0" THE 
N 690 

1060 IF RIGHTS(C$,4)=T$(0) OR C$="N" OR 
RIGHTS(C$,3)=T$(1) OR C$="S" OR RIGHT$(C 
$ , 3 ) =T$ ( 2 ) OR C$ = ’’E" THEN GOSUB 4450 : GOT 
O 1040 

1070 IF (LEFTS(CS,7)=S$(1) OR LEFT$(C$,7 
)=S$(6 ) ) AND RIGHTS(CS,6)="CACHOT" THEN 
GOSUB 4540:GOTO 1040 

1080 IF LEFTS(CS,7)=S$(1) AND (RIGHT$(C$ 

,3)="MUR" OR RIGHTS(C$,4)="MURS") THEN G 
OSUB 4 4 90 : GOTO 1040 

1090 IF LEFTS(C$,7)=S$(1) AND RIGHT$(C$, 
3 ) =’’SOL" THEN 1130 

1100 IF LEFTS(C$,5)=S$(0) AND RIGHT$(C$, 

6) ="GRAVAT" THEN 1140 

1110 IF LEFTS(C$,5)=S$(0) AND RIGHT$(C$, 

7) ="GRAVATS" THEN 1170 
1120 GOSUB 4250 : GOTO 1040 

1130 IF SOL=1 THEN GOSUB 4510:GOTO 1040 
ELSE SOL=l:GOSUB 4400:GOTO 1020 
1140 IF GRA=1 THEN PRINT#2,"VOUS EN AVEZ 
DEJA UN !": GOTO 1040 
1150 IF SOL=0 THEN GOSUB 4250:GOTO 1040 


1160 GRA=1 :GOSUB 4400:GOTO 1020 
1170 IF SOL=0 THEN GOSUB 4250:GOTO 1040 
ELSE PRINT#2,"VOUS NE POUVEZ EN EMPORTER 
QU’UN SEUL !": GOTO 104 0 
1180 ’ 

1190 ’ 

1200 GOSUB 4480:RESTORE 3920:FOR Q=0 TO 
6:READ A$(Q):NEXT 

1210 GOSUB 4 200 : PRINT#1,AS(0) :PRINT#1: PR 
INT#1,AS(1) ;",”; AS(2):PRINT#1,AS(3) :PRIN 
T#1,AS(4AS(5) :PRINT#1,AS(6) : GOTO 3 
770 
1220 ’ 

1230 ’ 

1240 GOSUB 4480:RESTORE 3930:FOR Q=0 TO 
6 :READ A$(Q) :NEXT 

1250 GOSUB 4200 :PRINT#1,AS(0) :GOSUB 4230 
: IF GAR=1 THEN PRINT#1,AS(6) ELSE PRINT# 


1,A$(1 ) 

1260 GOSUB 4240:IF GAR=1 THEN PRINT#1,A$ 
(2AS(3) ELSE PRINT#1,AS(2);"." 

1270 GOSUB 4170 

1280 IF RIGHTS(CS.4)=T$(0) OR C$="N" OR 
RIGHTS(C$,3)=T$(1) OR C$="S" THEN GOSUB 
4450 : GOTO 1270 

1290 IF RIGHTS(CS,5)=T$(3) OR CS="0" THE 
N 470 

1300 IF RIGHTS(C$,3)=T$(2) OR CS="E" THE 
N 1340 

1310 IF LEFTS(CS,3)=S$(2) AND RIGHTS(C$, 
5)="GARDE" THEN 1350 

1320 IF LEFTS(CS,7)=S$(6) AND RIGHT$(C$, 

5)="GARDE" THEN 1380 

1330 GOSUB 4250 : GOTO 1270 

1340 IF GAR=0 THEN GOSUB 4450:GOTO 1270 

ELSE 1420 

1350 IF GAR=1 THEN GOSUB 4510:GOTO 1270 
1360 GOSUB 4530:IF D$="GRAVAT" THEN 1370 
ELSE GOSUB 4250:GOTO 1270 
1370 IF GRA=0 THEN PRINT#2,"VOUS N’AVEZ 
PAS CELA !":FOR M=1 TO 2000 :NEXT: GOTO 13 
90 ELSE GAR=1:GRA=0:GOSUB 4400:GOTO 1250 
1380 IF GAR=0 THEN GOSUB 4460:GOTO 1270 
ELSE GOSUB 4500:GOTO 1270 
1390 CLS#1:CLS#2:GOSUB 4200 :PRINT#1,AS(0 
):PRINT#1:PRINT#1,A$(4):PRINT#1,AS(5):GO 
TO 3770 
1400 ’ 

1410 ’ 

1420 GOSUB 4480:RESTORE 3940:FOR Q=0 TO 


2:READ AS(Q):NEXT 

1430 GOSUB 4200 :PRINT#1,AS(0):GOSUB 4230 
: GOSUB 4520 :GOSUB 4240 :PRINT#1,AS(1);”." 
; AS ( 2 ) 

1440 GOSUB 4170 
1450 IF RIGHTS(C$,3)=T$(1) 

44 50 : GOTO 1440 
RIGHTS(C$,4)=T$(0) 


OR C$="S" THE 


OR CS = "N" THE 


N GOSUB 
1460 IF 
N 1650 
1470 IF 
N 1240 
1480 IF 
N 1530 
1490 IF 

,4)="COUR" OR RIGHTS(CS,7)="CHATEAU") TH 


RIGHTS(C$,5)=T$(3) 
RIGHTS(CS,3)=T$(2) 


OR C$="0" THE 


OR CS = "E" THE 


LEFTS(C$,7)=S$(1) AND (RIGHT$(C$ 
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EN GOSUB 4 4 90 : GOTO 1440 
1500 GOSUB 4 2 50 : GOTO 1440 
1510 ' 

1520 ’ 

1530 GOSUB 4 4 80 : RESTORE 3950:DIM A$(2):F 
OR Q= 0 TO 2 :READ A$(Q):NEXT 
1540 G=INT(RND(1)*10) + 1: IF G> = 5 THEN 162 
0 

1550 GOSUB 4 200 : PRINT#1,A$(0) :GOSUB 4230 
:GOSUB 4520 :GOSUB 4240 :PRINT#1,AS(1) 

1560 GOSUB 4170 

1570 IF RIGHT$(C$,5)=T$(3) OR C$="0" THE 
N 1420 

1580 IF RIGHT$(C$,4)=T$(0) OR C$="N" OR 
RIGHTS(C$,3)=T$(1) OR C$="S" OR RIGHT$(C 
$ , 3 ) =T$ ( 2 ) OR C$ = "E'* THEN GOSUB 4450 : GOT 
O 1560 

1590 IF LEFT$(C$,4)=S$(5) AND (RIGHT$(C$ 
,4)="PONT" OR RIGHTS(C$,5)="LEVIS") THEN 
GOSUB 4460:GOTO 1560 
1600 IF LEFTS(C$,7)=S$(1) AND (RIGHT$(C$ 
,4)="PONT" OR RIGHTS(C$,5)="LEVIS") THE 
N GOSUB 44 90 : GOTO 1560 
1610 GOSUB 42 50 : GOTO 1560 
1620 GOSUB 4 200 :PRINT#1,A$(0) :PRINTtl: PR 
INT#1,A$(2) : GOTO 3770 
1630 ’ 

1640 ’ 

1650 GOSUB 4 480 : RESTORE 3960:DIM A$(6):F 
OR Q=0 TO 6 :READ A$(Q):NEXT 
1660 GOSUB 42 00 : PRINT#1,A$(0) :GOSUB 4230 
: PRINT#1,A $(1) : PR1NT#1,A $(2): IF ABR=1 AN 
D TRA = 0 THEN PR INT#1.A$(4) ELSE IF ABR=1 
AND TRA = 1 THEN PRINT#1.A$(5) 

1670 GOSUB 4240:IF TRA=1 THEN PRINT#1,A$ 

(3);". M ;A$(6) ELSE PRINT#1.AS(3);"." 

1680 GOSUB 4170 

1690 IF RIGHTS(C$,3)=T$(1) OR C$="S" THE 
N 1420 

1700 IF RIGHTS(CS.3)="BAS" OR C$="B" THE 
N 1770 

1710 IF RIGHTS (C$,4)=T$(0) OR C$ = ,, N M OR 
RIGHTS (C$,3)=T$(2) OR C$="E" OR RIGHT$(C 
$,5)=T$(3) OR C$="0" THEN GOSUB 4450:GOT 
O 1680 

1720 IF LEFTS(C$,7)=S$(1) AND (RIGHT$(C$ 

,6)="PAILLE" OR RIGHTS(CS,9)="ABREUVOIR" 

) THEN GOSUB 4490:GOTO 1680 

1730 1F LEFTS(C$,7)=S$(1) AND RIGHT$(C$, 

6)="ECURIE" THEN GOSUB 4540:GOTO 1680 
1740 IF LEFTS(CS,7)=S$(4) AND RIGHTS(C$, 

9)="ABREUVOIR" THEN 1780 

1750 IF (LEFTS(C$,7)=S$(4) OR LEFT$(C$,4 
)=S$(5)) AND RIGHTS(CS,6)="TRAPPE" THEN 
1790 

1760 GOSUB 4 2 50 : GOTO 1680 

1770 IF TRA=0 THEN GOSUB 4450:GOTO 1680 

ELSE GOTO 1830 

1780 IF ABR=1 THEN GOSUB 4510:GOTO 1680 
ELSE ABR=1 :GOSUB 4400:GOTO 1660 
1790 IF TRA=1 THEN GOSUB 4510:GOTO 1680 
1800 IF ABR=0 THEN GOSUB 4250:GOTO 1680 
ELSE TRA=1-.GOSUB 4 400: GOTO 1660 
1810 ’ 

1820 ’ 


1830 GOSUB 4480 : RESTORE 3970.DIM AS(3 
OR Q=0 TO 3 :READ A$(Q):NEXT 
1840 GOSUB 4200 : PRINT#1.AS(0) : PRINT#1 
(1) .-GOSUB 4 2 30 : GOSUB 4520:GOSUB 4240: 
NT#1,AS(2) ;" , "; AS(3) 

1850 GOSUB 4170 

1860 IF RIGHTS(C$,4)=T$(0) OR C$="N" 

N 1930 

1870 IF RIGHTS(CS,4)="HAUT" OR C$="H" 
EN 1650 

1880 IF RIGHTS(CS,3)=T$(1) OR C$="S" 
RIGHTS(C$,3)=T$(2) OR C$="E" OR RIGHT 
$,5)=T$(3) OR C$="0" THEN GOSUB 4450: 
O 1850 

1890 IF LEFTS(C$,7)=S$(1) AND RIGHTS( 
6)="TUNNEL" THEN GOSUB 4490:GOTO 1850 
1900 GOSUB 4250 : GOTO 1850 
1910 ’ 

1920 ’ 

1930 GOSUB 4480:RESTORE 3980:DIM AS(4 
OR Q=0 TO 4:READ A$(Q):NEXT 
1940 GOSUB 4 200 : PRINT#1,AS(0) :GOSUB 4 
: PRINT#1.A$(1) : PRINT#1 ,A$(2) :GOSUB 4 2 
PRINT#1,AS(3) ;","; AS(4 ) 

1950 GOSUB 4170 

1960 IF RIGHTS(CS,3)=T$(1) OR C$="S" 

N 1830 

1970 IF RIGHTS(CS,4)="HAUT" OR C$="H" 
EN 2030 

1980 IF RIGHTS(C$,4)=T$(0) OR C$="N" < 
RIGHTS(CS,3)=TS(2) OR C$="E" OR RIGHT 
$,5)=T$(3) OR C$="0" THEN GOSUB 4450m 
O 1950 

1990 IF LEFTS(C$,7)=S$(1) AND RIGHTS( < 
6)="TUNNEL" THEN GOSUB 4490:GOTO 1950 
2000 GOSUB 4250 : GOTO 1950 
2010 ’ 

2020 * 

2030 GOSUB 4 480 : RESTORE 3990:DIM AS(5 
OR Q=0 TO 5 :READ A$(Q):NEXT 
2040 GOSUB 4 200 :PRINT#1 ,AS(0) :GOSUB 4 
:PRINT#1,AS(1) :PR1NT#1 ,A$(2) :GOSUB 42 
PRINT#1,AS(3) ;",": AS(4 ) ;","; AS(5) 

2050 GOSUB 4170 

2060 IF RIGHTS(CS,3)="BAS" OR C$="B" 

N 1930 

2070 IF RIGHTS(C$,4)=T$(0) OR C$="N" 

N 2150 

2080 IF RIGHTS(C$,5)=T$(3) OR C$="0" 

N 3130 

2090 IF RIGHTS(CS,3)=T$(2) OR C$="E" 

N 2660 

2100 IF RIGHTS(C$,3)=T$(1) OR C$="S” 

N GOSUB 4450-.GOTO 2050 

2110 IF LEFTS(C$,7)=S$(1) AND (RIGHTS 

,4)="OREE" OR RIGHTS(C$,6)="CHEMIN") 

N GOSUB 4490:GOTO 2050 
2120 GOSUB 4250 : GOTO 2050 
2130 ’ 

2140 ’ 

2150 GOSUB 4480 : RESTORE 4000:DIM A$(5 
OR Q=0 TO 5:READ A$(Q):NEXT 
2160 GOSUB 4200 :PRINT#1,AS(0):PRINTfl 
(1):GOSUB 4230 : PRINT#1,AS(2) :GOSUB 42 
PRINT#1,AS(3) ;","; AS(4) ;","; AS(5) 
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2170 GOSUB 4170 

2180 IF RIGHT$(C$,4)=T$(0) OR C$="N" THE 
N 2260 

2190 ÏF RIGHT$(C$,3)=T$(1) OR C$="S" THE 
N 2030 

2200 IF RIGHTS(C$,5)=T$(3) OR CSr^O" THE 
N 3230 

2210 IF RIGHTS(C$,3)=T$(2) OR C$="E" THE 
N 2820 

2220 IF LEFTS(CS,7)=S$(1) AND (RIGHT$(C$ 
, 5 ) = "CHENE" OR RIGHTS (C$,6) ="CHENES" ) TH 
EN GOSUB 4490 : GOTO 2170 
2230 GOSUB 4250:GOTO 2170 
2240 ’ 

2250 ’ 

2260 GOSUB 4480:RESTORE 4010:DIM AS(2) : F 
OR Q=0 TO 2 :READ A$(Q):NEXT 
2270 GOSUB 4200 :PRINTtl.AS(0):GOSUB 4230 
:PRINT#1,AS(2):GOSUB 4240 :PRINT#1.AS(1) 
2280 GOSUB 4170 

2290 IF RIGHTS(C$,4)=T$(0) OR C$="N" OR 
RIGHTS ( CS , 5 ) =T$ ( 3 ) OR C$ = ,, 0 ,, THEN GOSUB 
4450:GOTO 2280 

2300 IF RIGHTS(C$,3)=T$(1) OR C$="S" THE 
N 2150 

2310 IF RIGHTS(C$,3)=T$(2) OR C$="E" THE 
N 2360 

2320 IF LEFTS(C$,7)=S$(1) AND RIGHT$(C$, 

7)="HETRAIE" THEN GOSUB 4490:GOTO 2280 
2330 GOSUB 4250:GOTO 2280 
2340 * 

2350 * 

2360 GOSUB 4480:RESTORE 4020:DIM A$(5):F 
OR Q=0 TO 5:READ A$(Q):NEXT 
2370 GOSUB 4200 : PR INT#1.AS(0) :GOSUB 4230 
:PRINT#1,AS(1):PRINT#1,A$(2):GOSUB 4240: 
IF P01=0 THEN PRINT #1,A $(3) ;A$(4) EL 

SE PRINTfl,AS(4) 

2380 GOSUB 4170 

2390 IF RIGHTS (C$,5) =T$ ( 3 ) OR C$="0" THE 
N 2260 

2400 IF RIGHTS (C$,3)=T$(2) OR C$ = ’’E’’ THE 
N GOSUB 4450:GOTO 2380 

2410 IF RIGHTS(C$,4)=T$(0) OR C$="N" THE 
N 2460 

2420 IF RIGHTS (C$,3)=T$(1) OR C$="S" THE 
N 2820 

2430 IF LEFTS(CS.7)=S$(1) AND RIGHT$(C$, 
9)="CLAIRIERE" THEN GOSUB 4490:GOTO 2380 
2440 IF POI=l AND LEFTS(CS,4)=S$(5) AND 
RIGHTS(CS,5)="PORTE" THEN GOSUB 4460:GOT 
O 2380 

2450 GOSUB 4250:GOTO 2380 

2460 IF POI = l THEN GOSUB 4460 :PRINT#2,AS 

(5): GOTO 2380 ELSE 2490 

2470 ’ 

2480 * 

2490 GOSUB 4480-.RESTORE 4030 :DIM AS (13): 
FOR Q=0 TO 13:READ A$(Q):NEXT 
2500 GOSUB 4200 : PRINT#1,AS(0) 

2510 PRINT#1: IF P01=0 THEN PRINT#1,AS(1) 
AS ( 2 ) : PRINT#1 , AS ( 3 ) : PRINT# 1 : PRINT#1 
,AS(4) ELSE PRINT#1,AS(10):PRINT#1,AS(11 
):PRINT#1.A$(12):PRINT#1:PRINT#1,A$(13) 
2520 GOSUB 4240 :PRINT#1,AS(5) 


2530 GOSUB 4170 

2540 IF RIGHTS(C$,4)=T$(0) OR C$="N" OR 
RIGHTS(CS,3)=T$(2) OR C$="E" OR RIGHTS(C 
$,5)=T$(3) OR C$="0" THEN GOSUB 4450:GOT 
O 2530 

2550 IF RIGHTS(C$,3)=T$(1) OR C$=”S" THE 
N 2360 

2560 IF LEFTS(C$,3)=S$(2) AND RIGHT$(C$, 

8) ="SORCIERE" THEN 2630 

2570 IF LEFTS(CS,5)=S$(3) AND (RIGHT$(C$ 
, 5)="PIECE" OR RIGHTS (CS,2)= "OR” ) THEN 2 
610 

2580 IF LEFTS(C$,7)=S$(6) AND (RIGHT$(C$ 
, 8 ) = *’SORCIERE" OR RIGHTS(CS,9)="CHAUMIER 
E") THEN GOSUB 4460:GOTO 2530 
2590 IF LEFTS(CS,7)=S$(1) AND RIGHT$(C$, 

9) ="CHAUMIERE" THEN GOSUB 4460:GOTO 2530 
2600 GOSUB 42 50 : GOTO 2530 

2610 IF POI=l THEN GOSUB 4510:GOTO 2530 
2620 IF PIE=0 THEN PRINT#2,"VOUS N’AVEZ 
PAS D’OR ! ’’ : GOTO 2530 ELSE PIE = 0 : POI = 1 : G 
OSUB 4400 : GOTO 2500 

2630 CLS#1 :CLS#2:GOSUB 4200 :PRINT#1,AS(0 
) : PRINT# 1 : PRINT# 1 , AS ( 6 ) AS ( 7 ) : PRINT# 

1,A$(8):PRINT#1,A$(9) : GOTO 3770 
2640 ’ 

2650 ’ 

2660 GOSUB 4480:RESTORE 4050:DIM AS(3 ) : F 
OR Q=0 TO 3 :READ A$(Q):NEXT 
2670 GOSUB 4200 :PRINT#1,AS(0):GOSUB 4230 
:1F FOU=1 AND EPE=0 THEN PRINT#1,AS(1 ) : P 
RINT#1,AS(3) ELSE PRINT#1,AS(1);”." 

2680 GOSUB 4240 :PRINT#1.AS(2) 

2690 GOSUB 4170 

2700 IF RIGHTS (C$.4)=T$(0) OR C$ = ’’N’’ THE 
N 2820 

2710 IF RIGHTS (C$,5)=T$(3) OR C$ = ’’0’’ THE 
N 2030 

2720 IF RIGHTS (C$,3)=T$(1) OR C$ = ’’S” OR 
RIGHTS(C$,3)=T$(2) OR C$=”E” THEN GOSUB 
44 50 : GOTO 2690 

2730 IF LEFTS(CS,7)=S$(1) AND RIGHTS(CS, 

9)="SOUS-BOIS” THEN GOSUB 4490:GOTO 2690 

2740 IF (LEFTS(CS,7)=S$(1) OR LEFT$(C$,7 

) =S$ ( 6 ) ) AND (RIGHTS (CS, 7 ) = ’’FOUGERE” OR 

RIGHTS(C$,8)="FOUGERES") THEN 2770 

2750 IF LEFTS(C$,5)=S$(0) AND RIGHT$(C$, 

4)="EPEE" THEN 2780 

2760 GOSUB 4250:GOTO 2690 

2770 IF FOU=1 THEN GOSUB 4510:GOTO 2690 

ELSE FOU=l:GOSUB 4400:GOTO 2670 

2780 IF FOU=0 THEN GOSUB 4250:GOTO 2690 

2790 1F EPE=1 THEN GOSUB 4510:GOTO 2690 

ELSE EPE=1 :GOSUB 4400:GOTO 2670 

2800 ’ 

2810 ’ 

2820 GOSUB 4480:RESTORE 4060:DIM A$(5):F 
OR Q=0 TO 5:READ A$(Q):NEXT 
2830 GOSUB 4200 :PRINT#1,AS(0): IF VOY = 0 T 
HEN PRINT#1,AS(4) 

2840 GOSUB 4230 :PRINT#1,AS(5) :GOSUB 4240 
:PRINT#1,AS(1) ;"."; AS(2);","; AS(3) 

2850 GOSUB 4170 

2860 IF RIGHTS(C$,5)=T$(3) OR C$="0" THE 
N 2150 
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2870 IF RIGHT$(C$,4)=T$(0) OR C$="N" THE 
N 2360 

2880 IF RIGHTS(C$,3)=T$(1) OR C$="S" THE 
N 2660 

2890 IF RIGHTS(C$,3)=T$(2) OR C$="E" THE 
N 2940 

2900 IF LEFTS(C$,7)=S$(1) AND RIGHT$(C$, 
7)="BOSQUET" THEN GOSUB 4490:GOTO 2850 
2910 GOSUB 4250 : GOTO 2850 
2920 ' 

2930 ’ 

2940 GOSUB 4480:RESTORE 4070:DIM A$(15): 
FOR Q=0 TO 15 :READ A$(Q):NEXT 
2950 GOSUB 4200 :PRINT#1,AS(0):GOSUB 4230 
: IF BRI = 1 THEN PRINTtl,AS(1) ELSE PRINT# 
1,AS(15) 

2960 GOSUB 4240 :PRINTtl,AS(2) 

2970 GOSUB 4170 

2980 IF RIGHTS(C$,5)=T$(3) OR C$="0" THE 
N 2820 

2990 IF RIGHTS(C$,3)=T$(0) OR C$="N" OR 
RIGHTS(CS,3)=T$(1) OR CS="S" OR RIGHTS(C 
$,3)=T$(2) OR CS="E" THEN GOSUB 4450:GOT 
O 2970 

3000 IF LEFTS(CS,7)=S$(1) AND RIGHTS(CS, 
7)="TAILLIS" THEN GOSUB 4490:GOTO 2970 
3010 IF LEFTS(C$,3)=S$(2) AND RIGHT$(C$, 

7) ="BRIGAND" THEN 3050 

3020 IF LEFTS(C$,3)=S$(2) AND RIGHT$(C$, 

8) ="VOYAGEUR" THEN 3100 

3030 IF LEFTS(CS,5)=SS(0) AND (RIGHTS(C$ 
,2)= "OR" OR RIGHTS(CS,5)="PIECE") THEN 3 
090 

3040 GOSUB 4250:GOTO 2970 

3050 IF BRI=1 THEN GOSUB 4510:GOTO 2970 

3060 GOSUB 4530:IF D$="EPEE" THEN 3070 E 

LSE GOSUB 4250:GOTO 2970 

3070 IF EPE=0 THEN PRINT#2,"VOUS N’AVEZ 

PAS D’EPEE !": GOTO 2970 

3080 BRI=1:PIE=1:VOY=l:GOSUB 4400:GOSUB 

4200:PRINTtl,A$(0):PRINTtl:PRINTtl,AS(9) 

;","; A $(10) :PRINTtl,AS(11):PRINTtl,AS(12 

):PRINTtl,AS(13):PRINTtl,A$(14):GOSUB 42 

40 :PRINTtl,AS(2) : GOTO 2970 

3090 IF PIE=1 THEN PRINTt2,"VOUS L’AVEZ 

DEJA !": GOTO 2970 ELSE GOSUB 4250:GOTO 2 

970 

3100 1F BRI=1 THEN PRINTt2,"IL EST PARTI 
!":GOTO 2970 ELSE CLSt1 :CLSt2:GOSUB 420 
0 :PRINTtl,AS(0):PRINTtl:PRINTtl,AS(3):". 
";A$(4);" ";A$(5):PRINTtl,AS(6):PRINTt1, 
AS(7):PRINTtl,AS(8):GOTO 3770 
3110 ’ 

3120 ’ 

3130 GOSUB 4480 : RESTORE 4090:DIM AS(2): F 
OR Q=0 TO 2:READ A$(Q):NEXT 
3140 GOSUB 4200 :PRINTtl,AS(0):PRINTtl,AS 
(1):GOSUB 4230 :GOSUB 4520:GOSUB 4240:PRI 
NTt1,AS(2) 

3150 GOSUB 4170 

3160 IF RIGHTS(C$,3)=T$(1) OR C$="S" OR 
RIGHTS(C$,5)=T$(3) OR C$="0" THEN GOSUB 
4450 : GOTO 3150 

3170 IF RIGHTS(C$,3)=T$(2) OR C$="E" THE 
N 2030 


3180 IF RIGHTS(C$,4)=T$(0) OR C$="N" TH 
N 3230 

3190 IF LEFTS(CS,7)=S$(1) AND RIGHT$(C$ 
6)="FUTAIE" THEN GOSUB 4490:GOTO 3150 
3200 GOSUB 4250 : GOTO 3150 
3210 ’ 

3220 ’ 

3230 GOSUB 4480:DIM AS(12):RESTORE 4100 
FOR Q=0 TO 12:READ A$(Q):NEXT 
3240 GOSUB 4200 :PRINTt1,AS(0):GOSUB 423 
: IF SBI = 1 THEN PRINTt1,AS(7):GOTO 3250 
LSE PRINTt1,A$(1) 

3250 IF BIC=0 THEN PRINTt1,AS(2) ELSE P 
INTtl,AS(12) 

3260 IF COT=1 AND PCL=0 THEN PRINTtl,AS 
6) 

3270 GOSUB 4240:IF BIC=0 THEN PRINTtl,A 
(3) ;",";A$(4) ELSE PRINTt 1 , AS ( 3 ) ; " , 

; AS(4);" ET ”;A$(5) 

3280 GOSUB 4170 

3290 IF RIGHTS(C$,4)=T$(0) OR C$="N" TH 
N GOSUB 4450:GOTO 3280 

3300 IF RIGHTS(C$,3)=T$(1) OR C$="S" TH 
N 3130 

3310 IF RIGHTS(CS,5)=T$(3) OR CS="0” TH 
N 3410 

3320 IF RIGHTS(C$,3)=T$(2) OR CS="E" TH 
N 2150 

3330 IF LEFTS(CS,7)=S$(1) AND RIGHTS(CS 
9 ) = " CL AIRI ERE " THEN GOSUB 4490-.GOTO 328 
3340 1F LEFTS(C$,5)=S$(3) AND (RIGHT$(C 
,3)="EAU" OR RIGHTS(CS,6)="PICHET") THE 
3510 

3350 IF LEFTS(CS,7)=S$(6) AND (RIGHT$(C 
,6)="SBIRES" OR RIGHTS(CS,5)="SBIRE") T 
EN 3420 

3360 IF LEFTS(CS,5)=S$(0) AND RIGHT$(C$ 
3)="CLE" THEN 3440 

3370 IF LEFTS(CS,5)=SS(3) AND (RIGHTS(C 
,3)="VIN" OR RIGHTS(CS,5)="OUTRE") THEN 
3450 

3380 IF LEFTS(CS,4)=S$(5) AND RIGHTS(CS 
5)="PORTE" THEN 3460 

3390 IF LEFTS(CS,3)=S$(2) AND (RIGHT$(C 
,6)="SBIRES" OR RIGHTS(CS,5)="SBIRE") 1 
EN 3490 

3400 GOSUB 4250:GOTO 3280 

3410 IF BIC=0 THEN GOSUB 4450:GOTO 3280 

ELSE 3550 

3420 IF SBI=0 THEN GOSUB 4460:GOTO 3280 
3430 IF COT=l THEN GOSUB 4510:GOTO 3280 
ELSE COT=l:GOSUB 4400:GOTO 3240 
3440 IF PCL=1 THEN GOSUB 4510-.GOTO 3280 
ELSE IF SBI=0 THEN GOSUB 4460:GOTO 3280 
ELSE PCL=1:GOSUB 4400:GOTO 3240 
3450 IF SBI=1 THEN GOSUB 4460:GOTO 3280 
ELSE IF P01=0 THEN PRINTt2,"VOUS N’AVEZ 
PAS CELA !":GOTO 3280 ELSE SBI=1:PRINTt 
,"C’EST PAS DE REFUS !": FOR M=1 TO 2000 
NEXT:CLStl:CLSt2 : GOTO 3240 
3460 IF BIC=1 THEN GOSUB 4510-.GOTO 3280 
3470 IF SBI=0 THEN GOSUB 4460:GOTO 3280 
3480 IF PCL=0 THEN PRINTt2,"LA PORTE ES 
VEROUILLEE ET VOUS N’AVEZ PAS LA BONNE 
CLE !": GOTO 3280 ELSE BIC=1:GOSUB 4400: 




OTO 3240 

3490 IF SBI=1 THEN PRINT#2,"ILS SONT DEJ 
A MORTS !":GOTO 3280 ELSE CLS#1:CLS#2: GO 
SUB 4200 :PRINT#1,A$(0):PRINT#1:PRINT#1,A 
$ ( 8 ) AS ( 9 ) : PRINTtl , A$ ( 10 ) ;A$(11) 

3500 GOTO 3770 

3510 IF SBI=1 THEN GOSUB 4460:GOTO 3280 
3520 IF EAU=0 AND PIC=1 THEN PRINT#2,"TU 
PEUX BOIRE TA LAVASSE TOUT SEUL,PAYSAN 
!": GOTO 3280 ELSE PRINT#2,"VOUS N’AVEZ P 
AS D’EAU !”: GOTO 3280 
3530 ’ 

3540 ’ 

3550 GOSUB 4480:RESTORE 4120:DIM A$(18): 
FOR Q=0 TO 18 :READ A$(Q):NEXT 
3560 GOSUB 4200:PRINT#1,A$(0):GOSUB 4230 
: IF RIC=0 THEN PRINT#1,A$(1) ELSE PRINT# 
1,A$(18) 

3570 GOSUB 4240 :PRINTtl,AS(2) 

3580 GOSUB 4170 

3590 IF RIGHTS(C$,4)=T$(0) OR C$="N" OR 
RIGHTS(CS,3)=T$(1) OR C$="S" OR RIGHTS(C 
$,5)=T$(3) OR C$="0"‘THEN GOSUB 4450:GOT 
O 3580 

3600 IF RIGHTS(C$,3)=TS(2) OR C$="E" THE 
N 3230 

3610 IF LEFTS(CS,7)=S$(1) AND RIGHTS(CS, 
7)="BICOQUE" THEN GOSUB 4490:GOTO 3580 
3620 IF LEFTS(CS,3)=SS(2) AND (RIGHTS(CS 
,3)="ROI" OR RIGHTS(CS,7)="RICHARD") THE 
N 3660 

3630 IF (LEFTS(C$,7)="DETACHE" OR LEFTS( 
CS,7)="DELIVRE") AND (RIGHTS(CS,3)="ROI" 
OR RIGHTS(C$,7)="RICHARD") THEN 3680 
3640 IF (LEFTS(CS,5)="COUPE" OR LEFTS(CS 
,6)="ENLEVE") AND (RIGHTS(CS,4)="LIEN" O 
R RIGHTS(CS,5)="LIENS" OR RIGHTS(CS,5)=" 
CORDE" OR RIGHTS(CS,6)="CORDES") THEN 36 
80 

3650 GOSUB 4250:GOTO 3580 

3660 IF RIC=1 THEN PRINT#2,"LE ROI EST D 

EJA MORT !": GOTO 3580 

3670 RIC=1:CLS#1:CLS#2:GOSUB 4200:PRINT# 
1,AS(0):PRINTtl:PRINT#1,AS(3):PRINTtl,AS 
(4);","; AS(5):PRINTtl,AS(6):PRINTtl,AS(7 
):PRINTtl,A$(8):GOSUB 4240 :PRINTtl,AS(2) 

: GOTO 3580 

3680 IF RIC=1 THEN PRINTt2."LE ROI RICHA 
RD EST MORT !":GOTO 3580 

3690 GOSUB 4530: IF DSO”EPEE" THEN GOSUB 
4250 : GOTO 3580 
3700 CLStl:CLSt2 

3710 PRINTtl,A$(9)AS(10):PRINTtl,AS 
(11):PRINTtl:PRINTtl,AS(12);" ”;USING "4 
"; AS(13):PRINTtl,AS(14);",";USING "4";AS 
(15):PRINTtl,AS(16);",";USING "4";AS(17) 
3720 PRINTt2:PRINTt2,SPC(25);"UNE AUTRE 
PARTIE ?" :PRINTt2:PRINTt2,SPC(31);"(0/N) 

3730 K$=UPPERS(INKEYS) 

3740 IF K$="O” THEN RUN 80 

3750 IF KS = "N" THEN MODE 2 :CALL 4BB03.-CA 

LL &BB4E: END 

3760 GOTO 3730 

3770 CLSt2 


3780 PRINTt2:PRINTt2,SPC(18);"VOULEZ-VOU 
S RETENTER L’AVENTURE ?" :PRINTt2:PRINTt2 
,SPC(31);"(O/N)" 

3790 K$=UPPERS(INKEYS) 

3800 IF K$=”0" THEN RUN 80 

3810 IF KS = "N" THEN MODE 2 :CALL &BB03:CA 

LL &BB4E:PRINT"A LA PROCHAINE !": END 

3820 GOTO 3790 

3830 ’ 

3840 ’ 

3850 DATA DANS UN CACHOT SOMBRE ET HUMID 
E..UNE ETROITE FENETRE GARNIE DE BARREAU 
X,LA LOURDE PORTE FERMEE DE VOTRE CACHOT 
,UN PICHET D’EAU,DE LA PAILLE,UNE CLE.VR 
AISEMBLABLEMENT PERDUE PAR L’UN DE VOS,S 
UD.LA LOURDE PORTE OUVERTE DE VOTRE CACH 
OT,GEOLIERS 

3860 DATA DANS UN LONG COULOIR SORDIDE,A 
PEINE,ECLAIRE D’UNE LUM1ERE BLAFARDE.,N 
ORD,SUD ET EST. 

3870 DATA A L’OUEST L’ENTREE D’UN CACHOT 
.,NORD,SUD ET OUEST. 

3880 DATA VOUS ENTENDEZ D’AFFREUX GEMISS 
EMENTS EMANANT,DU SUD.,A L’EST L’ENTREE 
D’UN CACHOT.AU SUD UNE PETITE PORTE BASS 
E ENTR’OUVERTE..NORD,SUD ET EST. 

3890 DATA DEVANT L’ENTREE D’UN CACHOT..U 
N VIEUX PRISONNIER EN HAILLONS VOUS SUPP 
LIANT DE LUI DONNER A BOIRE.... EST. 

3900 DATA < MERCI,QUI QUE TU SOIS. EVADE 
-TOI VITE ! IL Y A.UN PASSAGE SECRET DAN 
S L’EC....>,A PEINE A-T-IL PRONONCE CES 

MOTS QU’IL REMET SON.AME A DIEU-IL ES 

T DEJA MORT !,UN PRISONNIER MORT. 

3910 DATA DANS UN CACHOT VIDE ET POUSSIE 
REUX,AUX MURS LEZARDES.,OUEST.,A TERRE Q 
UELQUES GRAVATS. 

3920 DATA DANS LA SALLE DE TORTURE !,SAN 
S QUE VOUS PUISSIEZ FAIRE UN GESTE,LES G 
ARDES.SE SAISISSENT DE VOUS ET VOUS RECO 
NDUISENT PRESTE--MENT DANS VOTRE CACHOT. 
.DEMAIN A L’AUBE,VOUS SEREZ PENDU HAUT E 
T COURT,POUR TENTATIVE D’EVASION... 

3930 DATA A LA SORTIE DE LA PRISON.,UN G 
ARDE GRAND ET FORT QUI VOUS TOURNE LE DO 
S ET VOUS BARRE LA ROUTE VERS L’EST.,OU 
EST,EST.,LE GARDE DETESTE LES AGRESSIONS 
!,IL VOUS POURFEND D’UN COUP DE HALLEBA 
RDE...,UN GARDE MORT. 

3940 DATA DANS LA COUR DU CHATEAU.,NORD, 
EST ET OUEST. 

3950 DATA DEVANT LE PONT-LEVIS FERME.,OU 
EST..VOUS ETES CAPTURE PAR DES SOLDATS Q 
UI PASSAIENT PAR LA ! 

3960 DATA DANS L’ECURIE DU CHATEAU.,UN A 
BREUVOIR VIDE,DE LA PAILLE,SUD,UNE TRAPP 
E FERMEE.,UNE TRAPPE OUVERTE.,BAS. 

3970 DATA DANS UN LONG TUNNEL OU IL FAIT 
UN NOIR,D’ENCRE.,NORD,HAUT. 

3980 DATA AU BOUT DU LONG TUNNEL.,LES RA 
YONS DU SOLEIL PENETRER PAR UNE PETITE,O 
UVERTURE AU-DESSUS DE VOUS.,SUD,HAUT. 
3990 DATA A L’OREE DE LA FORET.,AU NORD 
UN PETIT CHEMIN QUI DISPARAIT DANS LES,A 
RBRES.,NORD,EST,OUEST ET BAS. 
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4000 DATA DANS UN LIEU PLANTE DE VENERAB 
LES,CHENEé CENTENAIRESUN SENTIER BIFUR 
QUANT A L’EST.,NORD,SUD,EST ET OUEST. 
4010 DATA DANS UNE HETRAIE.,SUD ET EST., 
UN PETIT SENTIER MENANT A L’EST. 

4020 DATA DANS UNE PETITE CLAIRIERE.,AU 
NORD LA CHAUMIERE DE MEDUSE LA SORCIERE, 
UN SENTIER CONDUISANT AU SUD..NORD,SUD E 
T OUEST.,LA SORCIERE A VEROUILLE SA PORT 
E ! 

4030 DATA DANS LA CHAUMIERE DE MEDUSE.,< 
QUE VEUX-TU,NOBLE ETRANGER ? >,< AS-TU 
QUELQUE CHOSE A M’OFFRIR EN ECHANGE DE M 
ES SERVICES ? >.DIT-ELLE D’UNE VOIX SAR 
DONIQUE.,SUD..ELLE ESQUIVE VOTRE COUP 
4040 DATA FAIT QUELQUES.PASSES MAGIQUES 
ET VOUS TRANSFORME EN,UN RIDICULE VERMIS 
SEAU !,< JE TE REMERCIE ETRANGER ! >.< A 
CCEPTE CETTE OUTRE DE VIN EMPOISONNE QUI 
TE," DEBARASSERA DE TES ENNEMIS... >", 
DIT-ELLE PLEINE DE GRATITUDE. 

4050 DATA DANS UN SOUS-BOIS.,DE GRANDES 
FOUGERES,NORD ET OUEST..UNE EPEE. 

4060 DATA DANS UN BOSQUET.,NORD,SUD,EST 
ET OUEST.,VOUS ENTENDEZ DES APPELS A L’A 
IDE A L’EST.,UN LAYON MENANT AU NORD. 
4070 DATA DANS LES TAILLIS.,LE CADAVRE D 
•UN BRIGAND..OUEST..APRES QUE VOUS AYEZ 
TUE LE VOYAGEUR,L’UN,DES,BRIGANDS VOUS P 
OIGNARDE DANS LE DOS !.SACHEZ QUE LES AL 
LIANCES AVEC CES GENS-LA SONT,PLUS QU’HA 
SARDEUSES... 

4080 DATA < MERCI,CHEVALIER >,< ACCEPTE 
CETTE PIECE D’OR EN GUISE DE,RECOMPENSE. 
.. >,< ADIEU ! >,DIT LE VOYAGEUR EN VOUS 
QUITTANT.,UN VOYAGEUR AUX PRISES AVEC U 
N BRIGAND. 

4090 DATA DANS UNE FUTAIE.,VOUS ENTENDEZ 
LE BRUISSEMENT DES FEUILLES SOUS UNELEG 
ERE BRISE.,EST ET NORD. 

4100 DATA DANS UNE CLAIRIERE.,DEUX DES S 
BIRES DU SATANIQUE PRINCE JEAN.A L’OUEST 
UNE BICOQUE FERMEE.SUD.EST.OUEST.UNE PE 
TITE CLE,LES CORPS INANIMES DE DEUX HOMM 
ES EMPOISONNES,ALORS QUE VOUS AFFRONTEZ 
L’UN D’EUX,SON COMPAGNON 

4110 DATA "VOUS FRACASSE LA TETE D’UN ", 
COUP DE HACHE...,A L’OUEST UNE BICOQUE O 
UVERTE 

4120 DATA DANS LA BICOQUE.,LE ROI RICHAR 
D PIEDS ET POINGS LIES.,EST.,< AARGGH ! 
>.< TU M’AS TUE,TRAITRE ! >,VOUS AVEZ TU 
E LE ROI ET DESHONORE LA CHEVALERIE !,DE 
SORMAIS VOUS ETES CONDAMNE A ERRER DANS 
LA,FORET... 

4130 DATA < MERCI.CHEVALIER ! >.< JE TE 
DOIS UNE RECONNAISSANCE ETERNELLE ! >,BR 
AVO !.VOTRE COURAGE ET VOTRE INTELLIGENC 
E ONT EURAISON DES PIEGES LES PLUS RETOR 
S.,LE BON ROI RICHARD EST MAINTENANT LIB 
RE,PRET A DEMASQUER LE FELON ET REGNE 
R DERECHEF. 

4140 DATA POUR VOUS PROUVER SA GRATITUDE 
,IL VOUS FAIT D’ORESET DEJA DUC D’AMSTRO 
Y ET COMTE DU CEPECE ( PROVIN--CES ANGLA 


ISES )...,LE ROI RICHARD MORT. 

4150 ’ 

4160 ’ 

4170 PRINT#2 :X=INT(RND(1)*2)+1:ON X GO£ 
B 4180,4190:C$=UPPER$(C$):RETURN 
4180 LINE INPUT#2,"QUE FAITES-VOUS ";C! 
RETURN 

4190 LINE INPUT#2,"QUELLES SONT VOS IN£ 
RUCTIONS ";C$:RETURN 

4200 X=INT(RND(1)*2)+1:ON X GOSUB 4210 
220:RETURN 

4210 PRINT#1,"VOUS ETES "; :RETURN 
4220 PRINTtl,"VOUS VOICI ";:RETURN 
4230 PRINTtl:PRINT#1,"VOUS VOYEZ :":PR: 
T#1 :RETURN 

4240 PRINTtl:PRINT#1,"DIRECTIONS POSSI1 
ES : "; :RETURN 

4250 IF C$="" THEN PRINTt2,"C’EST UN PI 
COURT,JEUNE HOMME !":RETURN 
4260 IF LEFT$(C$,4)="MERD" OR LEFT$(C$ 

)="CON" OR LEFT$(C$,3)="ENF" THEN X=IN' 
RND(1)*4) + 1:ON X GOSUB 4270,4280,4290 , ' 
00:RETURN ELSE 4310 

4270 PRINT#2,"GROSSIER PERSONNAGE !": RI 
URN 

4280 PRINT#2,"SURVEILLEZ VOTRE LANGAGE 
ON AMI !":RETURN 

4290 PRINT#2,"ET GROSSIER AVEC CA !": R] 
URN 

4300 PRINT#2,"LA GROSSIERETE NE VOUS Ml 
ERA A RIEN RETURN 

4310 IF LEFT$(C$,3)="BOI" AND RIGHT$(Cî 
6)="PICHET" OR LEFTS(C$,3)="BOI" AND R: 
HT$(C$,3)="EAU" THEN 4320 ELSE 4350 
4320 IF PIC=0 THEN PRINT#2,"VOUS N’AVE! 
PAS D’EAU.":RETURN 

4330 IF PIC=1 AND EAU=0 THEN PRINT#2,"( 
RAFRAICHIT !":EAU=1:RETURN 
4340 IF PIC=1 AND EAU=1 THEN PRINT#2,"] 
PICHET EST VIDE !":RETURN 
4350 IF RIGHT$(C$,10)=Z$(11) OR C$="I" 
HEN GOSUB 4550:RETURN 

4360 X=INT(RND(1)*3)+1 : ON X GOSUB 4370 
380,4390:RETURN 

4370 PRINT#2,"JE NE COMPRENDS PAS.":RE1 
RN 

4380 PRINT#2,"JE NE SAISIS PAS.":RETURb 
4390 PRINT#2,"ESSAYEZ AUTRE CHOSE !": RI 
URN 

4400 X=INT(RND(1)*3)+1:ON X GOSUB 4410, 
420,4430:RETURN 

4410 PRINT#2,"SI VOUS VOULEZ.":GOTO 444 
4420 PRINT#2,"D’ACCORD.":GOTO 4440 
4430 PRINT#2,"PAS DE PROBLEME." 

4440 FOR M=1 TO 2000 :NEXT:CLStl:CLS#2: F 
TURN 

4450 X=INT(RND(1)* 2)+1 : ON X GOSUB 4460, 
470:RETURN 

4460 PRINT#2,"C’EST IMPOSSIBLE !":RETUF 
4470 PRINT#2,"VOUS NE POUVEZ PAS ALLER 
ANS CETTE DIRECTION.":RETURN 
4480 ERASE A$:CLStl:CLS#2:RETURN 
4490 PRINT#2,"IL N’Y A RIEN DE SPECIAL" 
RETURN 

4500 PRINT#2,"IL N’AVAIT RIEN DE PARTIC 



LIER”:RETURN 

4510 PRINT#2,"C’EST DEJA FAIT !":RETURN 
4520 PRINT#1,"RIEN DE SPECIAL ICI.":RETÜ 
RN 

4530 PRINT#2: LINE INPUT#2,"AVEC QUOI ";D 
$ ;D$=UPPER$(D$):RETURN 

4540 PRINT#2,"SOYEZ PLUS PRECIS !":RETUR 
N 

4550 PRINT#2."VOUS TRANSPORTEZ :" 

4560 IF CLE=0 AND PIC=0 AND GRA=0 AND PI 
E=0 AND POI=0 AND EPE=0 AND PCL=0 THEN P 
RINT#2,"RIEN DU TOUT !":RETURN 
4570 IF CLE=1 THEN PRINT#2,"LA CLE DE VO 
TRE CACHOT" 

4580 IF PIC=1 AND EAU=0 THEN PRINT#2,"UN 
PICHET D’EAU" ELSE IF EAU=1 THEN PRINT# 
2,"UN PICHET VIDE" 

4590 IF GRA=1 THEN PRINT#2,"UN GRAVAT" 
4600 IF PIE=1 THEN PRINT#2,"UNE PIECE D’ 
OR" 

4610 IF POI=l THEN PRINT#2."UNE OUTRE DE 


VIN EMPOISONNE" 

4620 IF EPE=1 THEN PRINT#2,"UNE EPEE" 
4630 IF PCL=1 THEN PRINT#2,"UNE PETITE C 
LE" 

4640 RETURN 
4650 MODE 2 

4660 LOCATE 26,1 :PRINT"A LA RECHERCHE DU 
ROI RICHARD":LOCATE 26,2:PRINT STRINGS( 
29,"-") 

4670 LOCATE 30,10 :PRINT"< 1 > : JOUER" 
4680 LOCATE 30,14 :PRINT"< 2 > : REVENIR 
AU BASIC" 

4690 LOCATE 26,24 :PRINT"VEUILLEZ CHOISIR 
.PREUX CHEVALIER" 

4700 K$=UPPER$(INKEYS) 

4710 IF K$="1" THEN RETURN 

4720 IF K$="2" THEN CLS:CALL &BB03:CALL 

A.BB4E : END 

4730 GOTO 4700 

4740 MODE 1 :CALL &BB03:CALL &BB4E: END 


AMSTRAD 


CHESS II 


Un programme d’échecs classique et de bon niveau. ^ 

Les amateurs de logique et|de stratégie profiteront des explications 
que donne le listing quant à la réflexion du micro. 

Etudiez l’organigramme qui suit, c’est instructif! 

Le listing comporte deux programmes qu’il faut taper et sauver à la suite. 


LISTING N° 1 

360 ’ ########################## 

370 ’ ###### INSTRUCTIONS ###### 

380 ' ########################## 

390 ’ 

400 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 
3,6:INK 2,11.16:DEFINT A-Z 
410 PEN 2:LOCATE 16,1:PRINT "CHESS II";: 

LOCATE 16,2: PRINT " : -";: LOCATE 1,4 

: PEN 1 

420 PRINT "CHESS II est un logiciel d'ec 
hecs de 32 kilos octets qui respecte tou 
tes les réglés de ce jeu. Ainsi, vous po 
urrez tout au long de la partie pratique 
r le petit roque, le grand roque, la pr 
ise en"; 

430 PRINT "passant, la promotion du pion 
etc... Lorsque CHESS II reconnait et 
re dans sa bibliothèque d’ouvertures, il 
répond instantanément sinon sa reflexio 
n dure de la 5 minutes (ce temps variant 
bien sur selon la complexité de la pos 
ition...)"; 

440 PRINT "Pour jouer un coup, il -faudra 
entrer la case de départ puis la case d 
'arrivée : (ex:E2E4). Pour roquer, entre 


r la case de départ du roi et celle d’a 
rrivee : (ex :E1G1).Pour recommencer un 

e partie a 

450 PRINT "zéro, presser C CGPY 1 lorsqu 
e c'est a vous de jouer."; 

460 PRINT " CHESS II annonce :":PRINT " 
les ECHECS ! , le MAT ! , le PAT !"; 

470 PEN 3:LOCATE 10,25:PRINT "*** PRESSE 
Z C S 3 ***"; 

480 ' 

490 ' ########################## 

500 ' ## GRAPHISME DES PIECES ## 

510 ' ########################## 

520 ' 

530 SYMBOL AFTER 200 

540 DATA 201,0,0,0,0,0,0,0,0,202,0,0,0,0 
,0,24,60,60,203,0,0,0,0,0,0,0,0,204,0,0, 
0,0,0,0,0,0,205,24,60,126,255,255, 126,60 
,126,206,0,0,0,0,0,0,0,0,207,1,3,3,0,0,0 
,0,0,208,255,255,255,0,0,0,0,0,209,128,1 
92,192,0,0,0,0,0 

550 DATA 210,0,0,57,57,63,15,15,3,211,0, 
0,153,153,255,255,255,0,212,0,0,156,156, 

,214, 

, 192, 


255,219,255,109,255,219,255,109,215 

64,192,192,192,64,192,192 

560 DATA 216,3,2,7,31,60,63,0,0,217 
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219,255,255,0,255,0,0,218,192,64,224,248 
,60,252,0,0 

570'DATA 219,0,0,0,0,0,0,3,15,220,0,24,2 


4,126,126,24,153 
,240,222,30,56,1 
31,102,126,24,24 
6,6,14,12,28,225 


, 195,221,0,.0,0,0,0,0,192 
i 2,96,96, 112,48,56,223,2 
24,24,24,224,120,28, 14, 
24,24,56,63,32,63,63,0 


580 DATA 226,24, 
7,24,24,28,252,4, 
,0,0,1,229,0,0,7, 
0,0,0,128,128,64, 
0,0 


24,24,255,0,255,255,0,22 
252,252,0,228,0,0,0,0,0 
20,126,254,223,255,230, 
64,64,231,1,^,7,15,7,0, 



55,0,0,236,208,208,208,208,208,208,0,0 
600 DATA 237,0j0,0,0,0,1,1,0,238,0,14, 14 
,7, 199,255,255,255,239,0,0,0,0, 128, 128, 1 
28,0,240,0,0,0,1,1,0,0,0,241,126,126,60, 
255,255,60,126,126,242,0,0,0,128,128,0,0 
,0,243,1,1,7,15,15,15,0,0 

610 DATA'244,255,255,255,255,255,255,0,0 
,245,128,128,224,240,240,240,0,0,253,255 
,255,255,0,255,255,0,0,254,240,240,224,3 
2,240,240,0,0 

620 DATA 246,0,0,0,0,0,6,0,102,247,0,0,0 
,0,24,0,24,24,248,0,0,0,0,0,96,0,102,249 
,6,103,103,119,55,63,31,31,250,24,60,60, 
i89,189,255,255,255,251,96,230,230,238,2 
36,252,248,248,252,15,15,7,4,15,15,0,0 
'630 FOR I = i TO 54: READ A, B, C, D, E, F, G, H, J 
: SYMBOL A,B,C,D,E,F,G,H,J :NEXT I 
640 IF INKEY<60)=-1 THEN 640 
650 ’ 

660 ’ .############################ 

‘-i*.- ’ ####### ORGANIGRAMME ####### 


############################ 


670- 
68(Zf 
690 

700 CLS:PEN 2ïLQCATE 16,1;PRINT "CHESS I 

I " ; i LOCATE 16,2:PRINT "-" ; : PEN 1 

710 LOCATE 1,6;PRINT "Pour les personnes 
qui désirent savoir comment -fonctionne 
exactement un logi- ciel d’echecs, pre 
ssez C 0 3 et vous verrez l’organigra 
mme complet de ce jeu.Cela vous sera uti 
le si vous desirez 

720 PRINT "apporter une modification au 
programme ou bien si vous voulez y inco 
rporer des routines en langage machine p 
our faire jouer CHESS II beaucoup plus 
rapidement."; 

730 PEN 3:LOCATE 11,21:PRINT "ORGANIGRAM 
ME-C 0 3"; 

740 IF INKEY(34)=—1 THEN 740 


750 MODE 2;PEN 1:PRINT "1. Fabrication 
des pièces et mise en place sur l’echiqu 
ier":PRINT "2. Coup du joueurPRINT "3 

. Déplacement legal ? -non- goto 2" 

:PRINT "4. Roi joueur en echec ? -oui 

- goto 2" 

760 PRINT "5. Roi CPC en echec ? -oui 

-- _;> echec = l <- ( contrôle du MAT ) " 

770 PRINT "6. Déplacement de la piece j 

ouee. ( CPC MAT ?-oui-FIN >":PRI 

NT "7. REM COUP DE L’ORDINATEUR":PRINT 
"8. Roque possible ?-oui-gosub 12 

780 PRINT "9. REM L’ORDINATEUR VA BOUGE 
R TOUTES SES PIECES":PRINT "10. Contrôle 
du déplacement de la piece" 

790 PRINT "11. Déplacement valable ? - 

non- goto 9":PRINT "12. Evaluation de 

la situation = note du coup":PRINT "13. 
Ordinateur a bouge toutes ses pièces ? - 
—non- goto 9" 

800 PRINT "14. Classement des notes. Si 


ses bol 


"17. 

-oui 


aucun coup jouable - goto 23" 

810 PRINT "15. CPC a épuisé tous 

s coups ?-oui-goto 24" 

820 PRINT "16. Coup=coup+1":PRINT 
vec ce coup, roi CPC en echec 2 
- goto 15" 

830 PRINT "18. Piece bougee menacee :• — 

-non- goto 20":PRINT "19. Piece protei 

ee ?-non-goto 15" 

840 PRINT "20. REM ORDINATEUR A TROUVE : 
ON COUP":PRINT "21. Roi joueur en echec 
-oui-> echec=2 <- ( contrôle du Mi 


O- 

T ) " „ 

850 PRINT "22. Déplacement de la piece 

ouee. ( joueur MAT ? -OUI FIN ) : 

goto 2" _ 

860 PRINT "23. Roi CPC en echec r -ou: 

-> ECHEC ET MAT . -NON-> PAT;FIN 

870 PRINT "24. CPC peut bouger sans se i 

ettre echec 7-oui — ï goto 20 • non 1 

— qoto 23" 

880 LOCATE 1,25:PRINT "****************: 
%% Pour chargement CHESS II, pressez C I 
3 %%%%%%%%%%%%%%%%%%%" 

890 IF INKEY(62)=-l THEN 890 
900 MODE 1 : INK 2,16,5 
910 PEN 1:LOCATE 10,1:PRINT 
"DIDIER DRUGMANNE " 


î: PRINT 

"<<<"; 
920 PEN 
r " ; 

930 PEN 


"; :PEN 
1 : PR I N‘ 


3:LOCATE 
1:LOCATE 


PEN 

16 ,5:PRINT "a le plais: 
13,9:PRINT "de vous pr< 


senter"; 

940 PEN 3:LOCATE 
950 PEN 1:LOCATE 


2:PRINT 

960 ? PEN 3:LOCATE 


20,13:PRINT 
12;17:PRINT 


"son"; 
"*#* ‘ 


: PEI 


"JEU D’ECHÉCS "; :PEN 1:PRINT "> 
11,21:PRINT "_ 


970 LOCATE' 
1987. 


"6,25:PEN 3:PRINT CHR$(164);' 
"; :PEN 1 : PRINT "CHESS II "; :PEN 
: PRINT "en chargement... 

980 RUN"!CHESS II 2" 

990 •’ 

1000 ’ ##############«############4 
1010 ’ ## FIN LISTING CHARGEUR 1 ## 


1020 


############################ 


LISTING N° 2 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
0 , 
140 
150 
160 
170 
180 
190 
200 
( 1 ) 
NK 
210 
T 8 




CHARGEUR 


ref1 exion 


de 


CHESS II 


############## 


MODE 1 :CLEAR: DEFINT A-Z :BORDER 0: INF 


0 


DEBUTAI:GOSUB 850 

’############################## 

’############################## 
’#### DESSIN DE L’ECHIQUIER ### 

’############################## 

’############################## 
W*=CHR*(22)+CHR*(0):V*=CHR*(22)+CHRï 
: C1$=CHR$(143)+CHR$<143)+CHR$(143): : 
1,16:INK 3,10:INK 2,26 
CLS #2: PLOT 8,152:DRAW 218, 152, 0 :PLI 
,152: DRAW 8,344:PLOT 8,344:DRAW ^18,, 
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44: PLOT 218,152:DRAW 218,344:PLOT 112,15 
2:DRAW 112,344 

220 PEN 2:LOCATE 2,2:PRINT "BLANC NOIR 
": PLOT 8,360:DRAW 218,360,3:PLOT 8,360:D 
RAW 8,392:PLOT 8,392:DRAW 218,392:PLOT 2 
18,360:DRAW 218,392:PLOT 112,360:DRAW 11 
2,392:PRINT V*; 

230 WINDÜW #1,i7,40,1,24:WINDOW #3,1,15, 

19,25: WI.NDOW #2,2, 15,5, 15: S=-l : LOCATE #1 
, U 1:R=~2: X=--2:F0R i=l'TO 8:X=X+3:F0R J = 

1 T O 8 : R--R+3 

240 5=~S:IF S=1 THEN PEN #1,1 ELSE PEN # 
1,3 


250 LOCATE # 1, R, X : PRINT #1,Cl*;V*;:LOCAT 
È #1,R,X +1 : PR INT #1,Cl*;:LOCATE #i,R,X+2 
: FRINI #1,Cl*; 


260 NEXT J :S=-S:R=-2:NEXT I 

270 CH~0:PEN 3:FOR 1=23 TO 2 STEP -3:CH= 

CH+1:LOCATE 15,I:PRINT CH;:NEXT I 

280 LE=64: FOR 1 = 18 TO 39 STEP 3:PEN 3:LE 

=LE+1:LOCATE 1,25:PRINT CHR*(LE); :NEXT I 

: PEN 2 

290 R=~2:X=-2:LOCATE #1,1,1:FOR H=1 TO 8 

:y=9-H:X=X+3:FOR L=1 TO 8:R=R+3 

300 Y=Y+10: IF C(Y)>0 THEN PEN #1,4 ELSE 

Pf r N tt 1 

310 IF * C(Y)=0 THEN 390 

320 IF ABS(C(Y))=1 OR ABS(C(Y))=2 THEN Q 
1=201 

330 IF ABS(C(Y))=3 THEN Q1=228 
340 IF ABS(C(Y)> =4 THEN Q1=237 
350 IF ABS(C(Y))=5 OR ABS(C(Y>)=6 THEN Q 
1=210 

360 IF ABS(C(Y))=7 THEN Q1=246 

370 IF ABS(C(Y))=8 OR ABS(C(Y)>=9 THEN Q 

1=219 

380 LOCATE #1,R,X:PRINT #1,CHR*(Q1);CHR* 
(Ql + 1) ; CHR* (01+2); : LOCATE #1,R,X+l : PRINT 
#1 ,CHR* (Ql+3); CHR*(01+4) ; CHR*(01+5) ; : LO 
CATË #1,R,X+2: PRINT #1, CHR* (Q1+6) ; CHR* (Q 
1+7);CHR*(Ql+8); 

390 NEXT L:R=-2:NEXT H:GOTO 900 
400 7 ############################# 

410 7 ############################# 

420 ’## VISUALISATION DES COUPS ## 

430 7 ############################# 

440 7 ############################# 

450 IF CA(1)=—1 OR CA(1)=1 THEN PIECE=9: 

GOTO 470 

460 PIECE=C(CA) 

470 FOR F=1 TO 4: F*<F)=MID*(A*,F,1):NEXT 
F 

480 A=ASC(F*(1))-64:B=9-VAL(F*(2)):C=ASC 
(F*(3) )—64 :D=9-VAL(F*(4)) 

490 PR INT W*;: IF DAME=1 THEN PIECE=-7 EL 

SE IF DAME=2 THEN PIECE=7 

500 IF PD=0 THEN QW*="-" ELSE QW*=">î" 

510 IF PASSE=1 THEN 0W*="x" 

520 IF A*="E1G1" OR A*= n E8G8" THEN PRINT 
#2," 0-0 "; V*;: PLOT 112,152:DRAW 112, 

344,3:PLOT 218,152:DRAW 218,344,3 
530 IF A*= "E 1 Cl " OR A*="E8C8" THEN PR INT 
#2,"0-0-0 ";V*;:PLOT 112,152:DRAW 112, 

344,3:PLOT 218,152:DRAW 218,344,3 
540' Tl=A*3-2: T2=B*3~2:T1=T1+15:1*2= (400- ( 
T2*16)+14) : T=TEST(T1#16,T2):PEN #1,T 
550 LOCATE #1,A*3~2,B*3-2:PRINT #1,C1*;: 
LOCATE #1,A*3~2,B*3-l:PRINT #1,C1*;:L0CA 
TE #1, A*3-'-2,B*3: PR INT #1,C1*; 

560 T1=C*3~2:T2=D*3-2:T1=T1+15:T2=(400-( 
T2*16)+14):T=TEST(Tl*16,T2):PEN #1,T 
570 LOCATE #1,C*3-2,D*3-2:PRINT #1,C1*;: 
LOCATE #1,C*3-2,D*3-1:PRINT #1,C1*;:L0CA 
TE #1,C*3-2,D*3': PRINT #1,C1*; 

580 IF PIECÈ>0 THEN PEN #1,4 ELSE PEN #1 

9 

590 IF PIECE=0 THEN 790 

600 IF ABS(PIECE)=1 OR ABS(PIECE)=2 THEN 


Ql=201 

610 IF ABS(PIECE)=3 THEN 01=228 
620 IF ABS(PIECE)=4 THEN 01=237 
630 IF ABS(PIECE)=5 OR ABS(PIECE)=6 THEN 
01=210 

640 IF ABS(PIECE)=7 THEN 01=246 
650 IF ABS(PIECE)=8 OR ABS(PIECE)=9 THEN 
01=219 

660 LOCATE #1, C*3-2,D*3~2:PRINT #1,CHR*( 
01) ; CHR*(Ql + 1);CHR*(01+2); :LOCATE #1,C*3 
-2,D*3-l:PRINT #1,CHR*(01+3);CHR*(01+4); 
CHR*(01+5);:LOCATÈ #1,C*3-2,D*3:PRINT #1 
,CHR*(01+6);CHR*(01+7);CHR*(01+8); 

670 IF A*="È8C8" AND CÂ(1)=~1 THEN A*="A 

8D8":ROG=1 :N0N=1:PIECE=6:GOTO 470 

680 IF A*="E8G8" AND CA(1)=1 THEN A*="H8 

F8":R00=1 :N0N=1:PIECE=6:GOTO 470 

690 IF CA(1)=—1 THEN CA=1:G0TQ 720 

700 IF A*="EICI" AND C(CA)=-9 THEN A*="A 

1D1":R00=1 :NON=1 : PIECE=-6: GOTO 470 

710 IF A*="E1G1" AND C(CA)=-9 THEN A*="H 

1F1 " : ROG= 1 : NON= 1 : F' I ECE=-6 : GOTO 470 

720 IF NON=1 THEN NON=0:GOTO 740 

730 PEN #2,2:PRINT #2,F*(1); F*(2);OW*;F* 

(3);F*(4);" "; : PLOT i12,152:DRAW 112,34 

4,3:PLOT 218,152:DRAW 218,344,3 

740 IF ECHEC=1 THEN PRINT #2:PRINT #2,"e 


chec! 

750 IF ECHEC=2 THEN PRINT #2," 


ech 


ec ! " ; 

760 IF PASSE=1 THEN PASSE=0:PIECE=0:D=D+ 
1 : GOTO 560 

770 IF DAME=1 THEN DAME=0 
780 IF DAME=2 THEN DAME=0 


790 RETURN 

800 7 ############################# 

810 7 ############################# 

820 ’### CREATION DES TABLEAUX ### 

830 7 ############################# 

840 7 ############################# 

850 DIM VP(10),VC<132),CD(132),CA(132),D 
IR(16),OUV*(18),0UV1*(18),QUV2*(18),0UV3 
*(18),0UV4*(18),C(99) 

860 RESTORE 880:FOR A=1 TO 9:C(A)=10:NEX 
T:FOR A=90 TO 98:C(A)=10:NEXT:FOR A=0 TO 
80 STEP 10:C(A)=10:NEXT:FOR A=19 TO 99 
STEP 10:C(A)=10:NEXT:FOR A=18 TO 88 STEP 
10 

870 READ C(A):NEXT A:FOR A=17 TO 87 STEP 
10:C(A)=1 : NE X T: FOR A=12 TO 82 STEP 10:C 
(A)=-lîNEXT:FOR A=U TO 81 STEP 10: READ 
C(A):NEXT A 

880 DATA 5,3,4,7,8,4,3,5,-5,-3,-4,-7,-8, 
-4,-3,-5 

890 IF DEBUT=1 THEN DEBUT=0:RETURN 
900 RESTORE 920 

910 FOR A=0 TO 9:READ VP(A):NEXT 
920 DATA 2,30,30,70,70,100,100,160,200,2 
00 

930 FOR 1=1 TO 16:READ DIR(I):NEXT 
940 DATA 1,-1,10,-10,11,-11,9,-9,21,-21, 
19 —19 1^ — i 0 —Q 

950 DATAMESE7E5, G1F3, B8C6, F1B5, A7A6, B 
5A4,G8F6,H1F1,F8E7,F1E1,B7B5,A4B3,D7D6, C 
2C3,E8G8,H2H3,C8B7 

960 DATA E2E4,E7E5,G1F3,B8C6,F1B5,A7A6,B 
5C6,D7C6,HIFI,C8G4,H2H3,H7H5,H3G4,H5G4, F 
3H2,D8H4,F1E1,H4H2 

970 DATA D2D4,D7D5,C2C4,E7E6,B1C3,G8F6,C 
1G5,F8E7,E2E3,B8D7,G1F3,E8G8,F1D3,D5C4,D 
3C4,H7H6,G5F6,D7F6 

980 DATA E2E4,E7E5,G1F3,B8C6,F1B5,A7A6,B 
5C6,D7C6,F3E5,D8D4,E5F3,D4E4,D1E2,E4E2,E 
1E2,F8D6,H1E1,G8E7 

990 FOR 1 = 1 TCl 18: READ OUV 1 *( I ): NEXT 
1000 FOR 1=1 TO 18:READ 0UV2*(I):NEXT 
1010 FOR 1=1 TO 18:READ 0UV3*(I):NEXT 
1020 FOR 1=1 TO 18:READ 0UV4*(I):NEXT 


29 










1030 7 ############################# 

1040 7 ############################# 

1050 7 # APPEL DES SOUS-PROGRAMMES # 

1060 7 ############################# 

1070 7 ############################# 

1080 GOSUB 1520:IF CPN=1 THEN CPN=0:GOTO 
1080 

1090 IF ECHEC=2 THEN ECHEC=0 
1100 GOSUB 2820 

1110 JOU=0:VERIF=1:GOSUB 2510:VERIF=0 
1120 GOSUB 420 

1130 IF ECHEC=1 THEN CLS #3:PEN 2:L0CATE 
4, 19: PRINT "JE SUIS" : L.OCATE 5,21:PRINT 
"ECHEC !":LOCATE 4,23:PRINT "Contrôle":L 
OCATE 4,25:PRINT "du MATGOSUB 5150 
1140 GOSUB 2920 

1150 IF MA=1 OR PA-1 THEN 1290 
1160 IF ECHEC*1 THEN ECHEC=0 
1170 GOSUB 2820 

1180 VERIF=2:ORD=0:JOU=0:GOSUB 2510:VERI 


1150 

1160 


F=0 
1 190 


1190 IF TR=18 THEN 1210 
1200 TR=TR+1 :OUV*(TR)=A* 

1210 GOSUB 420 

1220 IF ECHEC*2 THEN CLS #3sPEN 2:LOCATE 
3,19:PRINT "VOUS ETES":LOCATE 5,21:PRIN 
T "ECHEC !":LOCATE 4,23:PRINT "Contrôle" 
:LOCATE 4,25:PRINT "du MATGOSUB 51 
50 

1230 GOTO 1080 

1240 7 ############################# 

1250 7 ############################# 

1260 7 ### PAT !!' PARTIE NULLE ### 

1270 7 ############################# 

1280 7 ############################# 

1290 IF F'AOl THEN 1380 

1300 CLS #3: F'EN #3,2: PR INT #3," PAT 

": PRINT #3:PRINT #3," PARTIE NULLE" 

1310 IF INKEY*<>"" THEN 1310 

1320 IF INKEY*="" THEN 1320 ELSE MODE 1: 


1320 
RIJ N 
1330 
1340 
1350 
1360 
1370 
1380 


7 ######################## 

7 ######################## 

7 ### ECHEC ET MAT '!' ### 

7 ######################## 

7 ######################## 

CLS #3: F'EN 2: LOCATE 6,18:PRINT "ECH 


EC":LOCATE 7,20:PRINT "ET":LOCATE 6, 


RI NT 

1390 

1400 

RUN 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 


"MAT ! !":LOCATE 3,25: PRINT A* 

IF INKEY$< >"" THEN 1390 
IF INKEY**"" THEN 1400 ELSE MODE 1: 


############################# 
############################# 
’### ENTREE DU COUP JOUEUR ### 
############################# 
############################# 


+++++++++•+•+■ 
++ PRISE EN 
+++++++++++- 


PASSANT POSSIBLE 


1520 IF CA-CD*-2 AND C(CA)=2 THEN PASS=1 
:CA3=CA 

1530 7 +++++H-+++++++++++++++++++++++ 

1540 7 ++ JOUEUR AFFICHE SON COUP ++ 

1550 7 +++++++'++++++++++++++++++++++ 

1560 7 

1570 CA ( 1 ) -0: CLS #3: F'EN #3,2: PR INT #3," 

Votre coup ?": PEINT #3," -" : JOU 

= 1 :ORD=0: PRINT #3:PEINT #3," "; 

1580 IF INKEY*< >"" THEN 1580 
1590 A*= " " : FOR 1*1 TO 4 

1600 COUP*=UPF'ER*<INKEY*): IF COUP**"" TH 
EN 1600 


OUF‘* > " H " ) THEN 1600 

1630 IF (1=2 OR 1=4) AND (C0UP*<"1" OR 
0UP*>"8") THEN 1600 

1640 PR I NT #3, COUP* ; : IF 1=2 THEN PR INT 


1650 A*=A*4-C0UP* 

1660 NEXT I 

1670 PEN 2: LOCATE 1,25:F'RINT "Vous ete 
sur ?":PLOT -2,-2,2:PEINT CHR*(23)+CHR 
1); :TAG:MOVE 8i,20:PEINT CHR*(160); :TAl 
FF:FRINT CHR*(23)+CHR*(0); 

1680 IF INKEY*<>"" THEN 1680 

1690 0*=UPF'ER*(INKEY*) : IF 0$="" THEN 1. 


0 

1700 IF 0*="N" THEN CF'N=1 : RETURN 
1710 IF 0*="0" THEN 1730 
1720 GOTO 1690 

1730 CLS #3:LOCATE #3,2,2: FRINT #3,"VEI 
FICATION":LOCATE #3,7,4:PEINT #3,"DU":I 
CATE #3,5,6:PEINT #3,"COUP..." 


1740 

1750 

1760 

1770 

1780 

1790 

EC=2 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 


++++++++++++++++++++++++++++ 
+++++ ROQUE POSSIBLE ? +++++ 
++++++++++++++ +++++++-»■■++++++ 


IF <A*="E1G1" OR A*="E1C1"> AND E( 
THEN CPN*1:RETURN 
IF A*="E1G1" AND C(51)=-8 THEN 
IF A*="E1C1" AND C(51>*~8 THEN 


+ + + + + + + + + + + + + + + + + + + + + + + + + + 4- 

+++ JOUEUR NE ROQUE PAS +++ 

4 4- 4 4 4- 4- 4- 4 4- H- + 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4- 4 4- 4- 


1870 A1$=LEFT*(A*,1):A2*=MID*(A*,2,1) 

1880 A1=ASC(A1$) -64 :CD*=STR*(Al)+A2*: CI 
VAL(CD*) 

1890 A3*=MID*(A*,3,1):A4*=RIGHT*(A*,1) 

1900 A3*ASC ( A3* ) -64 : CA*=STF<* ( A3 ) +A4* : Cf 
VAL(CA*) 

1910 IF (A1*<"A" OR A1*>"H") OR (A3*<"f 
OR A3* >"H") THEN 1520 
1920 IF (A2*<"1" OR A2*>"8") OR <A4*<": 

OR A4*>"8") THEN 1520 
1930 IF C(CD)>=0 THEN CPN*1 :RETURN 
1940 IF C(CA)<0 THEN CPN*1:RETURN 
1950 IF CD=CA THEN CRN*1:RETURN 


1960 GOTO 2220 


1610 IF 
1620 IF 


INKEY(9)=0 THEN MODE 1 :RUN 
(1*1 OR 1*3) AND (COUP* <"A" 


1970 7 ########################### 

1980 7 ########################### 

1990 7 ### PETIT ROQUE JOUEUR 
2000 7 ########################### 

2010 7 ########################### 

2020 IF C(81)=-5 AND C(61)=0 AND C(71)* 
THEN 2030 ELSE CPN*1:RETURN 
2030 CD*51sCA*61:GOSUB 2500 
2040 C(51)=-8:C(61)=0:C(71)=0:CD=51:CA= 
1:GOSUB 2500 

2050 C(51)=0:C(61)=~6:C(71)=-9:C(81)=0 
2060 RETURN 

2070 7 ########################### 

2080 7 ########################### 

2090 7 ### GRAND ROQUE JOUEUR ### 

2100 7 ########################### 

2110 7 ########################### 

2120 IF C(11)=-5 AND C(21)=0 AND C(31)= 
AND C ( 41 ) =0 THEN 2130 ELSE CF‘J\|=1: RETUF 
2130 CD*51:CA*41:GOSUB 2500 
2140 C(51)=-8:C(41)=0: C(31)=0: C(21)=0: C 
=51:CA*31:GOSUB 2500 

2150 C(11)=0: C(21)=0:C(31)=-9:C(41)=-6: 
( 51)=0 
2160 RETURN 

2170 7 ########################### 

2180 7 ########################### 

2190 ’m DEPLACEMENT CORRECT ? ## 

2200 7 ########################### 

2210 7 ########################### 


2060 

2070 

2080 

2090 

2100 

2110 

2120 

AND 


2170 

2180 

2190 

2200 

2210 


30 




69 


2230 ON ABS (C ( 11 ) ) GOTO 2380,2390,2^70,^ 

260,2250,2250,2240,2240,2240 

2240 RESTORE 3010:GOTO 2280 

2250 RESTORE 3020:GOTO 2280 

2260 RESTORE 3030:GOTO 2280 

2270 RESTORE 3040 

2280 READ A 

2290 FOR 1=1 TO A:READ B:X=0 

2310 ïF X 11 + X<11 OR 11+ X >88 THEN 2360 
2320 IF (C ( 11 ) =--3 OR C ( 11 > =~9 OR C ( 11 > - 

g?W>~9 OR C(H)=- 
3) AND I1+X=CA THEN 2500 
2340 IF I1+ X=CA THEN 2500 
2350 IF C(I1+X)=0 THEN 2300 
2360 NEXT I 

2370 CPN= 1 : RETURN _ . _ , 

2380 IF CA-CD=2 AND C(I1+1)=0 AND C(I1+^ 

) ==0 THEN 2500 

0390 IF CA=CD+11 AND CA=CA3+1 AND F'ASS-1 

^THEN C ( CA3 ) =0 : PASSE= 1 : GOTO 2500 

2400 IF CA=CD~9 AND CA=CA3+1 AND PASS=1 

THEN C(CA3)=0:PASSE=1:GOTO 2500 

2410 IF CA-CD-1 AND C(I1+1>=0 THEN 2^00 

2420 IF CA-CB=-9 AND ClIl-9)>0 THEN 2^00 

2430 IF CA-CD=U AND C (11 + 11 ) >0 THEN 250 
0 

2440 CPN=1:RETURN 

2450 ’###################44###44#### 

2460 ’ ##########tt########44#####44## 

2470 '## LES ROIS SONT ECHECS ? ## 

2480 •’ ######################44##### 

2490 ■’ ###############44############ 

2500 PD=C( CA ):C(CA)=C(CD):C(CD)=0 
2510 ROI=-8:ROI1--9 

2520 IF 0RD=1 OR VERIF=1 THEN ROI=-ROI:R 

2530 FOR 1=11 TO 88:IF C(I)=ROI OR C(I>= 
ROI1 THEN 2540 ELSE NEXT 

2540 DATA 1,5,6,7,-1,5, 6, 7, 10, u, 6, 7,-10, 

5,6, 7,9,4,7,7,-9,4,7,7,11,4,7,7,-11,4,7, 

7' 

2550 RESTORE 2540 

2560 FOR J=1 TO 8:READ A,B,C,D:X=0 
2570 IF ORD= 1 OR VERIF=1 THEN B—B:C—C: 
D—-D 

2580 X = X+A 

2590 IF C(I+X>=0 THEN 2580 
2600 IF C(I+X)=B OR C(I+X)=C OR C(I+X)-D 
THEN 4810 
2610 NEXT J 

2620 DATA 8,9,-1,1,10, 

3,21,-21,19,-19,12,-12,8,-8 

2630 REStORE 2620 

2640 FOR F7=1 TO 2:READ A,B 

2650 IF QRD= 1 OR VERIF=1 THEN A=-A:B—B 

2660 FOR J = 1 TO 8:READ C 

2670 IF I+C<11 OR 1+088 THEN 2690 

2680 IF C(I+C)=A OR C(I+C)=B THEN 4810 

2690 NEXT J:NEXT F7 

2700 IF CA=— 1 THEN 2760 _. _ 0 . 

2710 IF JOU=1 AND (C(I-9)=1 OR C(I-9 
"OR (C<1+11>«2 OR C(I+11)=1) THEN 4810 
2720 IF (QRD=1 OR VERIF=1) AND (C(I-11>- 
-1 OR C(I-11)“-2> THEN 4810 __ 

2730 IF (0RD“1 OR VERIF= 1 ) AND (C(I+9) — 
ï OR C(1+9)=—2) THEN 4810 

2740 IF JOU=1 AND C(CA)=-2 AND CA-INT(CA 
/10)* 10=8 THEN C(CA)=-7:DAME=1 
2750 IF J0U=1 AND (C (CA) =-l OR C(CA>—5 
OR C(CA)=-8) THEN C(CA)=C(CA)-1 __ 

2760 IF (J0U=1 OR VERIF=1 OR VERIF-^i) TH 

EN RETURN ELSE GOTO 3500 

2770 ’######################## 

2780 ’######################## 

I_______ 


•10,9,-9, 11,-11,3, 


2790 ’### NOM DU COUP JOUE ### 

2800 ’######################## 

2810 ? ######################## A 
2820 CD$=STR*(CD): A1$=MI D* (CD$,2,1):Al*= 

CHR$(64+VAL(A1^)) 

2830 A2$=RIGHT^(STR$(CD),1) 

2840 CA*=STR$ ( CA ) : A3$=M I D* ( CA$ ,2,1): A-j.$- 
CHR*(64+VAL(A3*)) 

2850 A4$=RIGHT$(STR$(CA),1) 

2860 A^=A1$+A2$+A3$+A4$ 

2870 IF CA(1)=1 THEN A$="ESG3":C(58)-0:C 
(88)=0:C(68)=6:C(78)=9 

2880 IF CA(1)=-l THEN A$="E8C8":C(58)=0: 
C ( 18)=0:C(48)=6:C(38)-9:C(28)=0 
2890 RETURN 

2900 ’ ###########################44 
2910 ’ #########################44## 

2920 '### COUP DE L ? ORDINATEUR ### 

2930 ’############################ 

2940 ? ############################ 

2950 CL3 #3:PEN 2:L0CATE 2,22:PRINT "JE 
REFLECHIS":LOCATE 2,23:PRINT ". 

Il 

2960 CA(1)=0:JOU=0:0RD=1:NC=0:MC=1:PASS= 
0: PASSE=0 

2970 IF TR=18 THEN 2990 

TR=TR+1:OUV$(TR)=A$:GOTO 4930 
IF ECHEC=1 THEN ECHEC=0:GOTO 3010 
IF C(58)=8 THEN GOSUB 3970:ERREUR=0 
DATA 8 , 1,-1,10,-10,9,-9,11,-11 
DATA 4,1,-1,10,-10 
DATA 4,9,-9,11,-11 

DATA 8,21,19,12,8,-21,-19,-12,-8 
ECHEC=0:PTROQ=0:GRROQ=0 
FOR 1=11 TO 88 

IF C(I)<=0 OR C(I)=10 THEN 3280 
ON C(I) GOTO 3210,3220,3120,3110,31 
:090, 3090 
3010:GOTO 3130 
3020:GOTO 3130 
3030:GOTO 3130 
3040 


2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
00,3100,3090, 
3090 RESTORE' 
RESTORE 
RESTORE 
RESTORE 


READ AA:FOR J=1 TO AA:READ BB:X= 
X=X+BB:IF I+XCll OR I+X>88 THEN 


3100 
31 10 
3120 
3130 
3140 
0 

3150 IF C(I+X)=0 
4270:GOTO 3180 
3160 IF C(I+X)<0 
4270 
3170 
3180 
3190 
3200 
3210 
r> 


=0 
319 


THEN CA=I+X:CD=I:GOSUB 
THEN CA=I+X:CD=I:GOSUB 


AND C(I)<8 THEN 3140 


THEN CA=I 


C( 1-11X0 THEN CA= I-11 : CD= I : GOSU 
C( 1+9X0 THEN CA=I+9:CD=I: GOSUB 


GOTO 3190 
IF C(I)>3 
NEXT J 
GOTO 3280 

IF C(1-2)=0 AND C(I~1)=0 
_.CD=I:GOSUB 4270 
3220 IF C(1-1)=0 THEN CA=I-1:CD=I:GOSUB 
4270 
3230 IF 
B 4270 
3240 IF 
4270 

3250 IF RIGHT*(STR$(I—1>,1)="1" THEN CA= 
I-1 :CD=I : PIE=C(I-1):C(1-1)=7:GOSUB 4270: 
C ( I-1)=PIE:C(I)=2 
3260 IF RIGHT % (STR$(I —11),1)="1" AND C(I 
-11X0 THEN CA= I-11 : CD= I : PIE=C ( I-11 ) : C ( I 
-11)=7:GOSUB 4270:C(1-11)=PIE:C(I)=2 
3270 IF RIGHT$(STR$(I+9),1)="1" AND C(I+ 
9X0 THEN CA= I +9: CD= I : PIE=C ( I +9) : C ( I +9) 
7:GOSUB 4270 : C(1+9)=PIE:C(I)=2 
3280 NEXT I 

3290 ’############################# 

3300 ’############################# 

3310 ’### CLASSEMENT DES COUPS ### 

3320 ’############################# 

3330 ’############################# 

3340 FOR A=1 TO NC~1:F0R B=A+1 TO NC 
3350 IF VC(A)>=VC(B) THEN 3390 


31 


1 




3360 VG(0)-VG(A):VC(A)=VC(B):VC(B)=VC(0> 
O-370 CD (0) =CD (A) : CD (A) =CD (B) : CD(B)=CD(0) 

7790 NEXT > B CA(A) ïCA<A>:=GA(B) :CA<B>=CA(0) 
3400 NE X T A 

3410 IF MC<NC+1 THEN 3440 

3420 IF MA=1 THEN PA=1:GQT0 3490 

3430 MA--1 : MC -1 

3440 CD--CD (MC) : GA=CA (MC) 

3450 IF CA>1 THEN 3470 
3460 GOTO 3900 

~>480 ™=C(CA) :C(CApC<CD) :C(CD>= 0 

3490 GOTO 2510 

3500 IF PA=1 THEN 3890 

IF MA=1 THEN MA=0:GOTO 3860 
-•^20 IF C (CA) =7 THEN 3550 
3530 IF VP(-PD)>=VP(C(CA)) THEN 3860 
•3040 ######################### #### 

oo50 ’ 

0^60 ’# PIECE MENACEE ? PROTEGEE 

!############################# 

Ou80 ######################## ##### 

ou90 DATA -5,-7,-6,-1,1,-10,10,- 4 ,-7,-7, 

3600 RESTORE 3590 

3610 FOR 1=1 TO 2:READ A,B,C 

* F PR0T=1 THEN A=-A: B=-B: C=-C 
o6o0 FOR J=1 TO 4:X=0:READ D 
3640 X=X+D 

3650 IF C(CA+X)=0 THEN 3640 

?=C 0 THEN C 3820 X>=A ° R C(CA+X,=B 0r C(CA+X 
3670 NEXT"jTnEXT I 

3680 DATA -3,-3, -12,12,8,-8,19,-19,21,-2 
iiôl’ =?5> 10 > - 11 01 ,- 9,9 


3500 

3510 

3520 

3530 

3540 

3550 

3560 


3650 

3660 


1, -- 8 , -9, -1, 1 , - 10 , 10 , 

3690 RESTORE 3680 


19,21,-2 


0700 FOR J=1 TO 2:READ A,B 

3710 IF PROT—1 THEN A--A:B=-B 

3720 FOR 1=1 TO 8 :READ C 

H' 7 :'? î !! CA+C<11 0R CA+O 88 THEN 3750 

3750 œxT < “ 5 ixT A J OR C(CA+C, - B ™ EN 3820 

3760 DATA -• 11,9, ™ 1 ,-2 

J 770 RES JORE 3760: READ A,B,C,D 


3770 RESTORE 


3780 IF PROT -1 THEN A=-A:B^-bTc^-C■D=-D 
2?? * F <C(CAh-A)-C OR C(CA+A)=D) OR <C(C 
A+B)=C DR C(CA+B)=D) THEN 3820 
0800 IF PROT —IZ) THEN 3860 
5®i® Î F F ' R 0T=1 THEN PRGT=0: GOTO 3910 
m 8 -dx rl F FROT=0 AND C (CA) =7 AND PD--7 THE 

N O 06 W 


C(CA )=8 


3 B<!-9 F THEN T 3910 ND C(CA>=7 AND AO -8 AND 

* F RR0T =1 THEN PROT—0: GOTO 3860 
odo 0 PROT-1:GOTO 3590 
3860 ’ 

In 7 C(CA)=c“ÂTIT R C(CA,=:S 0R C (CA) =8 TH 

H“ 0 C(CA?i| A DAHE^ D CA -INT(CA/1 0 ,»1 0 =1 T 
3890 •’ 

3900 RETURN 

3910 IF PA=1 THEN PA=0:GQTQ 3890 
3920 C (CD) =C ( CA ) : C ( CA ) =F'D : MC=MC +1 


3910 IF PA=1 THEN FA=0: GOTO 3890 
3920 C ( CD ) =C ( CA ) : C ( CA ) =PD : MC=MC+1 

3940 GOTO 3410 

3950 ####################### 

0960 ? ##################### ## 

3970 .- ### PETIT R0QUE CPC ### 

-r™ ’ ####################### 

o990 ’ 

4000 PTR0Q=1;GRROQ=0 

?Sn 0 rïooV ( 5 8 - ) r rl AND C < 68)=;0 AND C(78)=0 
rHEN 40 20 EL.SE 4080 
l -D-- 58: CA=68: GOSUB 2500 
40o0 C (58)-8: C (68)-0:G(78)=0:IF ERREUR=1 


THEN 4080 ELSE CD=58:CA=78:GOSUB 2500' 
(58) =8: C (68) =0: C (78) =0: IF ERREURS THE! 
4080 

4040 C (58) =0: C (78) =9: C (68) =0: C (88) =5: CI 
88:CA-68:GOSUB 4270:C(58)=8:C(68)=0:C(' 
) —0 : C ( 88 ) ==5 

4050 CA(NC) = 1 :VC(NC)=VC(NC)+2000 
4060 ’####################### 

4070 ’####################### 

4080 ’### GRAND ROQUE CPC ### 

4090 ’####################### 

4100 •’ ####################### 

4110 ERREUR=0:PTROQ=0:GRROO=1 

4120 IF C(58)=8 AND C(48)=0 AND C(38)=C 

AND C(28)=0 AND 0(18)=5 THEN 4130 ELSE 

fc-TURN 

4130 CD=5S:CA=48:GOSUB 2500 
4140 C(58)=8:C(48)=0:C(38)=0:C(28)=0:C( 
8)=5:1F ERREUR-1 THEN RETURN ELSE CD=5£ 
CA=38:GOSUB 2500 

pire, £ F 8 > =8: C (48) =0: C(38)=0:C <18)=5i IF 
E R REUR=1 THEN RETURN ELSE C(58)=0:C(38) 
=0: C ( 18) =5: CD=18: CA--48: GOSUB 427 
! C <-8) =8: C (48) = 0! C (38) = 0 : C (28) =0: C ( 18) = 

: GRFIÜQ^O 

4160 CA(NC)=~1:VC<NC)=VC(NC)+2000 
4170 RETURN 


4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 


***************************** 
***************************** 
** PARTIE LA + IMF. DU LOG ** 

***************************** 

***************************** 


4^0 •’ 

ÎUoS ## EVALUATION COUP CPC ## 
4280 '######################### 

:#################### ##### 
R 2 =C(CA>:C <CA)=C(CD):C(CD)=0 
4o10 NC=NC+1 :VS=0 

4320 IF PD<0 THEN VS=2000 
4330 FOR F=-1 TO 1 STEP 2 
4340 FOR Z ==11 TO 88 

Je E0 ^ (C(Z) > <>SGN(F) THEN 47: 
4^60 IF C(Z)=10 THEN 4710 
4o70 IF C(Z )=0 THEN 4710 


THEN 4710 


4380 IF F =-1 THEN W=-5:Q3=-9:04=11 :Q5=l 
4390 IF F-l THEN W=3: 03=9: Q4--11 : Q5---1 ■ 


4400 IF F 


T™ Il F= ~* T HEN V5=VS 6*VP(-C(Z) ) 

4410 IF F= 1 THEN VS-VS+W*VP(C(Z)) 

ABS(C(Z)) GOTO 4610,4630,4460,4 
J 0.« 4440,4440,4430,4430, 4430 
4430 Q1 = 1 :Q2=8:GOTO 4470 
4440 Ql=l:Q2=4:GOTO 4470 
4450 01=4: Q2--8: GOTO 4470 
4460 Q1=9:02=16 

4480 SExKg 1 T ° Q2!B=DIR<T>ïXXS=0 

î» Ïf f iîïïîiî-îg 4590 

GOTO 4550~' _1 AND C(Z + XX)==0 THEN VS=VS-1 

5?n 0 y.™ Fssl AND C(Z+XX)=0 THEN VS=VS+l:i 
U I U 4550 

2 5 ?2pM F uQ = üi âïïR C(z+xx >>0 and C(z+xxx 

0 THEN VS=VS—3*VP(C(Z + XX) )-1000; GOTO 45' 

F'^-C ( Z + XxT) : GOTQ C 4590 X ^ <0 THEN VS ^ S+ W*< 
S®C?Zn.9 B THEN Z 4«;i ° R ABS(C(Z >>= 8 ° R Al 

A--S E"" 1 AND C( Z+XX)<0 THEN 4590 

f i FF==1 AND C(Z+XX)>0 THEN 4590 
4580 GOTO 4480 
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4590 NEXT T 
4600 GOTO 4710 

4610 IF F=~1 AND C(Z+Q6)=0 AND C(Z+Q5)=0 
THEN VS=VS~2:GOTO 4650 
4620 IF F-1 AND C(Z+Q6)=0 AND C(Z+Q5>=0 
THEN VS=VS+2:GOTO 4650 

4630 IF F=-l AND C(Z+Q5)=0 THEN VS=VS-1 

4640 IF F=1 AND C(Z+Q5)=0 THEN VS=VS+1 

4650 IF F=—1 AND (C(Z-9)=2 OR C(Z-9)=1) 

THEN VS=VS-1500:GOTO 4690 

4660 IF F=-l AND (C(Z+11>=2 OR C(Z+11>=1 

) THEN VS=V5~1500: GOTO 4690 

4670 IF F= ~1 AND C(Z-9)>0 AND C(Z-9><10 

THEN VS=VS~3*VP(C(Z-9))-5000 

4680 IF F~— 1 AND C(Z+11)>0 AND C(Z + 11)<1 

0 THEN VS- VS-- 3#VP (C ( Z+11 ) ) -5000 

4690 IF F= 1 AND C(Z~U)<0 THEN VS=VS+W*V 

P(-C <Z~11)) 

4700 IF F—1 AND CCZ+9X0 THEN VS=VS+W*VP 
( —C(Z+9)) 

4710 NEXT Z 
4720 NEXT F 

4730 C(CD > =C(CA):C(CA)=PD 

4740 VC(NC)=VS:CD(NC) =CD: CA (NC) =CA 

4750 RETURN 

4760 ’########################## 

4770 •’ #################'######### 

4780 ’## ROIS ECHECS : ERREUR ## 

4790 7 ########################## 

4800 7 ########################## 

4810 IF JÜU=1 AND PASSE=1 THEN C(CD)=C(C 
A):C(CA)=PD:C(CA3)=2:CPN=1:RETURN 
4820 IF JQU=1 THEN C(CD)=C(CA):C(CA)=PD: 
CPN=1:RETURN 

4830 IF ORD=1 AND PTROQ=l THEN PTROQ=0:E 
RREUR= 1 : RETURN 

4840 IF ORD=l AND GRROQ=1 THEN GRROQ=0:E 
RREUR=1 :RETURN 

4850 IF VERI F ~1 THEN ECHEC=1 :RETURN 
4860 IF VERIF=2 THEN ECHEC=2:RETURN 
4870 GOTO 3910 

4880 7 ############################# 

4890 7 ############################# 

4900 ’### COUP DANS OUVERTURE ? ### 

4910 7 ############################# 

4920 ’############################# 

4930 FOR 1=1 TO TR 

4940 IF OUV*(I)=OUVl*(I> THEN NEXT ELSE 
4960 

4950 A*=OUVl*(TR+1): GOTO 5020 

4960 FOR 1=1 TO TR:IF OUV*(I)=0UV2*(I) T 

HEN NEXT ELSE 4980 

4970 A*=QUV2* < TR+1): GOTO 5020 

4980 FOR 1 = 1 TO TR: IF OUV*(I)=0UV3*(I) T 

HEN NEXT ELSE 5000 

4990 A*=ÜUV3*(TR+1): GOTO 5020 

5000 FOR 1=1 TO TR:IF OUV*(I)=QUV4*(I) T 

HEN NEXT ELSE 2990 

5010 A*=QUV4*(TR+1) 

5020 A1*=LEFT*(A*,1):A2*=MID*(A*,2,1): Al 
=ASC(A1 *)-64 :CD*=STR*(Al)+A2*:CD=VAL(CD* 
) 

5030 A3*=MID*(A*,3,1):A4*=RIGHT* <A*, 1) : A 
3=ASC(A3*)-64:CA*=STR*(A3)+A4*:CA=VAL(CA 
*) 

5040 PD=C(CA):PD1=C(CD):C(CA)=C(CD):C(CD 
)=0 

5050 IF A*="E8G8" THEN CA(1)=1 :C(58)=0ïC 
(68) =6: C (78) =9: C (88) =0: PIECE=9 
5060 IF TR=17 AND A*="H4H2" THEN ECHEC=2 

5070 IF TR= 11 AND A*= ,, D4E4" THEN ECHEC=2 

5080 IF TR*13 AND A*="E4E2" THEN ECHEC=2 

5090 IF PD1=1 THEN C(CA>=2 

5100 GOTO 1200 

5110 7 ########################## 

5120 7 ########################## 


5130 ’#### ECHEC ET MAT-??? #### 

5140 7 ########################## 

5150 7 ########################## 

5160 QW=0:FOR 1=11 TO 88 

5170 IF ECHEC=1 AND (C(I)=8 OR C(I)=9) T 
HEN ECH=1 : GOTO 5200 

5180 IF ECHEC=2 AND (C(I)=-8 OR C(I)=-9) 
THEN ECH=-1 : GOTO 5200 
5190 NEXT I 

5200 FOR F= 1 1 TO 88^17=0 

5210 IF C (F) =0 OR C (F) =10 OR SGN(C(F)X> 

SGN(ECH) THEN 5370 

5220 IF ABS(C(F))=1 AND ECHEC=1 THEN Al= 
-2:A2=-1 :A3=2:A4=l:A5=-l1 :A6=9:K=I: GOTO 
5390 

5230 IF ABS(C(F))=2 AND ECHEC=1 THEN Al= 
-2:A2=—1 :A3=2:A4=1 :A5=~11 :A6=9:K=I :GOTO 
5400 

5240 IF ABS(C(F))=1 AND ECHEC=2 THEN Al= 
2:A2=1 :A3=~2:A4=-l:A5=-9:A6=l1 :K=I: GOTO 
5390 

5250 IF ABS(C(F))=2 AND ECHEC=2 THEN Al= 

2:A2=1 :A3=-2:A4=-1 :A5=-9:A6=11 :K=I : GOTO 
5400 

5260 IF ABS(C(F))=7 THEN T=1:T1=8:K=I 
5270 IF ABS(C(F))=5 OR ABS(C(F))=6 THEN 
T=1: T1=4:K=I 

5280 IF ABS(C(F))=4 THEN T=5:Tl=8îK=I 
5290 IF ABS(C(F))=3 THEN T=9:Tl=16:K=I 
5300 IF ABS(C(F))=8 OR ABS(C(F))=9 THEN 
T=1: T1=8:TIT=1 

5310 FOR Q=T TO Tl :T2=DIR(Q):ZZ=0 
5320 ZZ=ZZ+T2 

5330 IF F+ZZ<11 OR F+ZZ>88 THEN 5360 
5340 IF C(F+ZZ)=0 THEN PI7=C(F+ZZ):PI8=C 
(F) : C (F+ZZ ) =C (F) : C (F) =0: GOSUB 5470: IF QW 
=1 THEN RETURN ELSE C(F)=C(F+ZZ):C(F+ZZ) 
=0: IF ABS(C(F))=3 OR ABS(C(F))=8 OR ABS ( 

C(F))=9 THEN 5360 ELSE 5320 
5350 IF C(F+ZZ)<10 AND SGN(C(F+ZZ))<>SGN 
(ECH) THEN PI7=C(F+ZZ):PI8=C(F):PI3=C(F+ 
ZZ):C(F+ZZ)=C(F):C(F)=0:GOSUB 5470:IF QW 
=1 THEN RETURN ELSE C(F)=C(F+ZZ):C(F+ZZ) 
«P 13 

5360 NEXT Q 
5370 NEXT F 

5380 IF F=89 THEN 5440 

5390 IF C(F+A1)=0 AND C(F+A2)=0 THEN PI7 
=C(F+Al) : P18=C(F):C(F+Al)=A3:C(F)=0:ZZ=A 
1 :GOSUB 5470:IF QW=1 THEN RETURN ELSE C< 
F+Al)=0:C(F)=A4 

5400 IF C(F+A2)=0 THEN PI7=C(F+A2):PI8=C 
(F) : C(F+A2) 

UB 5470:IF 
=0:C(F)=PI3 

5410 IF C(F+A5)<>0 AND C(F+A5)<10 AND SG 
N(C(F+A5))< >SGN(ECH) THEN PI7=C(F+A5): PI 
8=C(F >:PI3=C(F+A5):PI4=C(F):C(F)=0:C(F+A 
5)=PI4:ZZ=A5:GOSUB 5470:IF QW=1 THEN RET 
URN ELSE CCF)=F14:C(F+A5)=P13 
5420 IF C(F+A6)< >0 AND C(F+A6)<10 AND SG 
N(C(F+A6) )< >SGN(ECH) THEN PI7=C(F+A6) : PI 
8=C(F) : F'I3=C (F+A6) :PI4=C(F) : C (F) =0: C (F+A 
6 > =P14: Z Z =A6:GOSUB 5470:IF QW=1 THEN RET 
URN ELSE C(F)=P14:C(F+A6)=P13 
5430 GOTO 5370 

5440 IF ECHEC=1 THEN A$="J 7 AI PERDU.” 
5450 IF ECHEC=2 THEN A*=”J 7 AI GAGNE." 
5460 GOTO 1350 

5470 DATA l,-5,-6>,-7,-l,-5,-6,-7,10,-5,- 

6, —7 ,—10, —5, —6, —7 j, 9, —4, —7, —7, —9, —4 —7, —7 

,il,-4,-7,-7,-11,-4,-7,-7 

5480 RESTGRE 5470 

5490 IF TIT=1 THEN K=F*ZZ 

5500 FOR J=1 TO 8:READ A,B,C,D:X=0 

5510 IF ECHEC=2 THEN B=-B:C=-C:D=-D 

5520 X=X+A 


=A3: P1 3=C( F ): C ( F ) _„ 

QW=1 THEN RETURN ELSE C 


0:ZZ=A2: GQS 
: (F+i 


-A2) 
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5530 IF C(K+X)=0 THEN 5520 

RETURN 

5540 IF C(K+X)=B OR C(K+X)=C OR C(K+X)=D 

5650 IF ECHEC=2 AND (C(K-9)=1 OR C(K-9>= 

THEN RETURN 

2) OR (C(K+11)=1 OR C(K+l1)-2) THEN RETU 

5550 NEXT J 

R N 

5560 DATA -8, -9,-1,1, 10,-10,9,-9,11,-11, 

5660 C (F+ZZ ) =F'17: C (F > ==PI8 

-3,-3,21,-21,19,-19,12,-12,8,-8 

5670 QW=1:RETURN 

5570 RESTORE 5560 

5680 J 

5580 FOR F7=1 TO 2:READ A,B 

5690 ? 

5590 IF ECHEC=2 THEN A=-A:B=-B 

5700 ' 

5600 FOR J=1 TO 8:READ C 

5710 ■’ ############################# 

5610 IF K+C<11 OR K+C>88 THEN 5630 

5720 ’############################# 

5620 IF C(K+C)=A OR C(K+C)=B THEN RETURN 

5730 ’# FIN DU LISTING CHESS II 2 # 

5630 NEXT J:NEXT F7 

5740 ? ############################# 

5640 IF ECHEC= 1 AND <C(K~U)=-1 OR C(K-1 

5750 •’ ############################# 

1)=-2) OR (C(K+9)=-l OR C(K+9)=-2) THEN 



AMSTRAD 


DEFCARAC 

Ce petit utilitaire vous permettra de redéfinir les caractères 
comme autant de sprites. Simple à utiliser 
et vraiment pratique, Defcarac explicite dans la page de menu 
toutes les manipulations disponibles. 


^ (1 Dïy A p£8) ,A$< 8) i SYMBOL AF T ER 0:PERI*=" I 

20 KÊY DEF 70,0,0,0: F'OKE &B4E7,0:POKE ?<B 
4E8,255: ’ CAF'5 ON. 

30 ï NK 0,0:BORDER 0: INK 1,20:1NK 2,2:1NK 
3,6:MODE 1 

40 LGCATE 1,1: INF'UT"CARACTERE DE DEBUT: 

",GARA 

50 IF CARAC33 OR CARA>255 THEN PRINT"IMP 
OSSIBLE": GOTO 40 
60 DEPART“CARA 
70 GOSUB 650 

80 MODE 1 : WINDOW 1,40, 13, 25: PAPER 0:F'EN 
1 : CLS 

90 WIND0W#2,3,11,3,10:PAPER#2,0:PEN#2, 1: 
CLS#2 

100 WINDGW#4,13,40,1,13:PAPER#4,0:PEN#4, 

1 :CLS#4 

105 PAPER#1,0:PEN#1,1:CLS#1 
110 GOSUB 710 
120 PEN 1 

130 MÛVE 25,210:DRAW 25,370,3:MÜVE 0,232 
: DRAW 185,232,3:DRAW 185, 370,3: DRAW 0,37 
0,3 

140 FOR Y7.= l TO 8 

150 L0CATE#3, 1, Y7.+2: PRINT#3, US ING"#" ; 9-Y 

7. 

160 NEXT 

170 FOR X7.=3 TG 10 

180 L0CATE#3, X7., 12: PRINT#3, USING ,, # M ; X7.-2 

190 NEXT 

200 XX7.= 1 : YY7.= 1 

210 AFTER 15 GOSUB 540 

220 A*=INKEY* 

230 IF A$~" "THEN 220 
240 A=ASC(A$) 

250 IF A=124 THEN GOSUB 1910:GOTO 80 
260 IF A—'68 THEN GOSUB 1830:GOTO 80 

270 IF A~65 THEN GOSUB 1720:GOTO 220 

280 IF A~67 THEN GOSUB 1520:GOTO 80 

290 IF A=83 THEN GOSUB 1000:GOTO 80 


690: G 


300 IF A=82 THEN GOSUB 930:GOTO 70 

310 IF A-69 THEN GOSUB 890:GOTO 70 

320 IF A=33 THEN GOSUB 850:GOTO 80 

330 IF A=59 THEN CARA=CARA+1 :GOSUB 69 

OSUB 650:GOTO 80 
340 IF A=45 THEN CARA^CARA-1 :GOSUB 690:G 
OSUB 650:GOTO 80 
350 IF A=224 THEN 480 
360 IF AC240 OR A>243 THEN 220 
370 XXP7.=XX7.: YYP7.=YY7. 

380 IF A=240 AND YY7.<8 THEN YY7.=YY7.+ 1 

390 IF A=241 AND YY7.>1 THEN YY7.=YY7.-1 

400 IF A=242 AND XX7.>1 THEN XX7.=XX7.-1 

410 IF A=243 AND XX7.<8 THEN XX7.==XX7.+ 1 


390 IF A=241 AND YY7.>1 THEN YY7.=YY7.-1 

400 IF A=242 AND XX7.>1 THEN XX7.=XX7.-1 

410 IF A=243 AND XX7.<8 THEN XX7.^XX7.+ 1 

420 R=REMAIN(0) 

430 L0CATE#2, XXP7., 9-YYP7. 

440 CQL0=2' X <8-XXF"/.) 

450 IF (C ( YYP7.) AND CGLQ)=0 THEN PRINT#2, " 
"ELSE F'RINT#2, CHR$ (&E9) 

460 AFTER 1 GOSUB 540 

470 GOTO 220 

480 C0L0=2- (8-XX7.) 

490 IF(C(YY7.) AND COL.O)=0 THEN C(YY7.)=C(Y 
Y7. ) OR COLO ELSE C ( YY7. ) =C ( YY7. ) AND NOT COL 
O 

500 SYMBOL CARA,c(8),c(7),c(6),c(5),c(4) 
,c(3),c(2),c(1) 

510 LÔCATE#3,16,6 

520 PRINT#3,CHRè(CARA):PEN#4,3:L0CATE#4, 
5,1 : PRINT#4,"CARACTERE No ";GARA:PEN#4,2 
: L0CATE#4, 1,3: F'OR A=8 TO 1 STEF'-l :A$(A) = 
HEX$ (C (A) ,2) : PRINT#4, A$ ( A) ; : NEXT 

525 L0CATÈ#4, 1, 10: PEN#4, 1 : PRINT#4, "F'ROGR 
AMMER PAR SCHMIDT F." 

530 GOTO 220 
540 REM 

550 L0CATE#2, XX7.,9-YY7. 

560 PRINT#2,CHR* (?<7F) 

570 AFTER 5 GOSUB 590 
580 RETURN 










590 REM 

600 LQCATE#2, XX*/., 9-YY7. 

610 C0L0=2-(8-XXX) 

620 IF (C (YY7.) AND COLQ>=0 THEN PRINT#2, " 

"ELSE PRINT#2,CHR»($<E9) 

630 AFTER 15 GOSUB 540 
640 RETURN 

650 7 SOUS - PROGRAMME DE DECOMPOSITION 
D 7 1 CARACTERE 7 

660 MODE 2:LOCATE 1,1:PRINT CHR»(CARA) 
670 AD=$<C000: FOR A=S TO 1 STEP-1 : C ( A) «PE 
EK(AD):AD-AD+2048:NEXT 
680 MODE 1:RETURN 

690 7 SOUS - PROGRAMME DE TESTE DE DEBOR 
DEMENT DES CARACTERES 7 

700 IF CARAC33 OR CARA>255 THEN PRINT CH 
R*(7) ; SPRINT"IMPOSSIBLE."s GOTO 220 ELSE 
RETURN 

710 7 SOUS - PROGRAMME D'AFFICHAGE DES T 
OUCHES EMPLOYEES 7 
720 CLS:PEN 2 

730 PRINT"+ —> AVANCER D 7 1 CARACTERE." 

740 PRINT"! —> PERIPHERIQUE DE SORTIE " 

; :PEN 3: PRINT PERI» :PEN 2 

750 PRINT"-> RECULER DM CARACTERE." 


1060 IF REP»="F" OR REP»="f " THEN 1090 
1070 IF REP»="B" OR REP»="b" THEN 1240 
1080 GOTO 1050 


1090 
1 100 


7 sauver -fichier 7 

CLS:PEN 3:PRINT"Sauvegarde fichier 


760 PRINT"! —> QUITTER LE PROGRAMME." 
770 PRINT"S —> SAUVEGARDER." 

780 PRINT"G —> CHARGER." 

790 PRINT"D —> RETOURNER VERTICALEMENT 
CARACTERE "; :PEN 3:PRINT" ";CHR$(CA 

RA);:PEN 2:PRINT" DANS GRILLE." 

800 PRINT"R —> RECHOISIR CARACTERE DEBU 
T. " 

810 PRINT "E ---> INITIALISER CARACTERE DE 
BUT. " 

820 PRINT"A —> AFFICHER CARACTERE "; : PE 
N 3:PRINT CHR»(CARA); :PEN 2:PRINT" DANS 
GRILLE." 

830 PEN 3-.PRINT "CARACTERE No "; CARA;: PEN 
1 SPRINT" GRAPHIQUE :";CHR»(CARA) 

840 RETURN 

850 7 SOUS - PROGRAMME QUITTER 7 

860 CLS:PEN 3:INPUT"ETES VOUS SUR DE CEL 

A ( /N).",REP» 

870 REP»=UPPER»(REP») 

880 IF REP»="N"THEN RETURN ELSEiBASIC 
890 7 SOUS - PROGRAMME INITIALISER CARAC 
TERE DE DEBUT 7 

900 CLS:PEN 3:INPUT"ETES VOUS SUR DE CEL 
A ( /N).",REP» 

910 REP»=UPPER»(REP») 

920 IF REP»="N"THEN RETURN ELSE RUN 
930 7 SOUS - PROGRAMME RECHOISIR CARACTE 
RE DE DEBUT 7 

940 CLS:PEN 3:INPUT"ETES VOUS SUR DE CEL 
A ( /N).",REP» 

950 REP»=UPPER»(REP») 

960 IF REP»="N"THEN RETURN ELSE 970 
970 INPUT"NUMERO DU CARACTERE:",CARA 
980 IF CARA<33 OR CARA>255 THEN BORDER 2 
,6:FOR T=1 TO 500:NEXT:BORDER 0:GOTO 970 
ELSE DEPART=CARA:RETURN 
990 7 SOUS - PROGRAMME DE SAUVEGARDE / C 
HARGEMENT 7 

1000 CLS:PEN 3:INPUT"ETES VOUS SUR DE CE 
LA ( /N).",REP» 

1010 REP»=ÙPPER$(REP») 

1020 IF REP»="N"THEN RETURN 
1030 CLS:PEN 2:PRINT"SAUVEGARDE FICHIER 
POUVANT ETRE RAPPELERPAR AMSCARATERE." 
1040 PEN 3:PRINT"SAUVEGARDE BINAIRE 

SERVANT POUR VOS PRO-GRAMME PERSONNEL (A 
UTO EXCECUTION)." 

1050 PRINT:PEN 1 :INPUT"VOTRE CHOIX (F/B) 
:",REP» 


il 10 INPUT"Nom du fichierNOM» 

1120 IF NQM»="" THEN RETURN 

1130 IF LEN(NOM»)>8 THEN BORDER 0,6:FOR 

T=1 TO 500:NEXT:BORDER 0:GOTO 1110 

1140 IF DEPART>CARA THEN POKE $<2000, CARA 

: POKE $<2002, DEPART : DEPART=PEEK ( $<2000 ) : CA 

RA=PEEK ($<2002) ELSE 1150 

1150 MODE 2:OPENOUT NQM»+".DEF" 

1160 FOR CPT=DEPART TO CARA 
1170 WRITE#9,CPT 

1180 AD=$<C000 : LOCATE 1,1: PR I NT CHR* ( CPT ) 

1190 FOR CP=8 TO 1 STEP -1 

1200 C < CP)«PEEK(AD):AD=AD+2048 

1210 WRITE#9,C(CP):NEXT CP:NEXT CPT 

1220 CLOSEOUt 

1230 GOTO 80 

1240 7 SAUVER BINAIRE 7 

1250 CLS:PEN 3:PRINT"Sauvegarde binaire. 

Il 

1260 INPUT"Nom du binaire:",NOM» 

1270 IF NOM»="" THEN RETURN 

1280 IF LEN(NOM»)>8 THEN BORDER 0,6:FOR 

T=1 TO 500:NEXT:BORDER 0:GOTO 1260 

1290 IF DEPART>CARA THEN POKE $<2000, CARA 
: POKE $<2002, DEPART : DEPART«PEEK ( $<2000 ) : CA 
RA=PEEK ( $<2002 ) ELSE 1300 
1300 ADD=$<7000: LIGN«1250 

1310 TOTAL=0:READ C»:IF C»="fin" THEN 14 
00 

1320 FOR 1=1 TO LEN(C») STEP 2 

1330 C=VAL ( "$<" +MID» (C»,1,2)): POKE ADD, C: 

ADD=ADD+1 : TOTAL=TQTAL+C 

1340 NEXT:READ TESTE:IF TESTE< >TOTAL THE 
N BORDER 2,6:PRINT"ERREUR LIGNE "LIGN:EN 
D 

1350 LIGN=LIGN+10:GOTO 1310 

1360 DATA CD4EBBCD6CBB11FA00210080, 1398 

1370 DATA CDABBB0100802100767E0203, 974 

1380 DATA 233E01BE20F7C9, 768 

1390 DATA "fin" 

1400 POKE $<7007, DEPART: ADD=$<7600 

1410 FOR CPT=DEPART TO CARA 

1420 MODE 2:LOCATE 1,1:PRINT CHR»(CPT) 

1430 AD=$<C000: FOR A=8 TO 1 STEP-1 : C (A) =P 

EEK(AD):POKE ADD,C(A):ADD=ADD+1 :AD«AD+243 

48:NEXT 

1440 NEXT 

1450 POKE ADD, $<1 

1460 SAVE NOM», B, $<7000, ( ADD--$<7000)+$<1, $<7 
000 

1470 CLS:MODE 1 : PEN 3:PRINT"SAUVEGARDE E 
FFECTUEE. VOUS DEVREZ RAPPE-" 

1480 PRINT"LER CE PROGRAMME DE CETTE FAC 
ON":PRINT:PRINT 

1490 PEN 1: PR INT "10 MEMORY $<6FFF : L.ÛAD" ; C 
HR» ( 34 ) ; NOM» ; CHR» ( 34 ) ; " : CALL $<7000 " : PR IN 
T"20 CLEAR":PRINT:PRINT 

1500 PEN 2:PRINT"ATTENTION POUR AVOIR LE 
S ANCIENS CARACTERES FAIRE 7 CALL $<BBAA 7 " 
:PRINT:PRINT 

1510 PEN 1:PRINT"VOUS POUVEZ AUSSI REDEF 
INIR VOS CARACTERES QUAND MEME.":PRINT:P 
RI NT " UNE TOUCHE . . " : CALL $<BB06 : CLS : GOTO 
70 

1520 7 CHARGEMENT DE FICHIER CARACTERE(S 

) 7 

1530 CLS:PEN 2:INPUT"EST VOUS SUR DE CEL 
A ( /N).",REP» 

1540 REP»=LQWER»(REP») 

1550 IF REP»="" THEN 1580 


35 






1560 IF REP**"N" THEN RETURN 
1570 GOTO 1540 

1580 CLS:CLS#4:PEN#4,1 s PRINT#4,"CATALOGU 
E. " 

1590 •’ POUR LECTEUR DE DISQUETTE 

1600 X*="*.DEF":WINDOW SWAP 0,4:PEN#4,2: 

! DIR,SX*:WINDOW SWAP 4,0 
1610 INPUT"NOM :",NOM* 

1620 IF NÜM*="" THEN RETURN 

1630 IF L.EN (NOM* > >8 THEN PR INT CHR*(7):C 

LS: GOTO 1610 EL.SE 1640 

1640 OPENIN NÜM*+".DEF" 

1650 WHILE NOT EOF 
1660 INPUT#9,CAEA 
1670 FOR 1=8'TQ 1 STEP -1 
1680 INPUT#9,CCI):NEXT 

1690 SYMBOL CARA, C (8) , C (7) , C (6) , C (5) , C (4 

) , C(3),C(2),C <1):WEND:CLOSÈIN 

1700 PÈN 3SPRINT“CHARGEMENT FINI. UNE TO 

UCHE.":CALL &BB06 

1710 CLS:CLS#4:RETURN 

1720 •’ AFFICHER CARACTERE DEMANDE DANS G 
RILLE ’ 

1730 A=REMAIN(0) 

1740 YYP7.=8: XXP7.=8 

1750 FOR YYP7.=8 TO 1 STEP -l:FOR XXP7.=8 
TO 1 STEP -1 

1760 L0CATE#2, X XP7., 9-YYP7. 

1770 C0L0 -2'"' (8--X XP7.) 

1780 IF(C( YYP7.) AND COLO)=0 THEN PRINT#2, 
" " ELSE PR I NT#2, CHR* ( ?<E9 ) 

1790 C0L0-2"'" ( 8-X X7. ) 

1800 IF (C (YY'/.) AND CÜLO)=0 THEN C(YY7.)=C( 
YY7. ) OR COL O ELSE C ( YY7. ) =C ( Y Y7. ) AND NOT CO 


1810 NEXTïNEXT 
1820 RETURN 

1830 •’ RETOURNER VERTICALEMENT UN CARACT 
ERE ’ 

1840 CP=0:PEN 3:CLS:1NPUT"ETES-VOUS SUR 
DE CELA ( /N).", REP* 

1850 REP*=LOWER*(REP*) : IF REP*="N" THEN 
RETURN 

1860 IF REP*="" THEN 1870 ELSE 1850 
1870 FOR CPT=1 TO 8:P0KE 2<2000+CP, C < CPT ) 

:CP=CP+1:NEXT 

1880 CP=0:FOR CPT=8 TO 1 STEP -1:C(CPT>= 
PEEK (&2000+CP) : CP=CP+1 : NEXT 
1890 SYMBOL CARA,C(8),C(7),C(6),C(5),C(4 
),C(3),C(2>,C(1)■ 

1900 RËTURN 

1910 ’ CHANGEMENT DE PERIPHERIQUE ’ 

1920 IF PERI*="DISK" THEN PERI*="K7": ! TA 
PE:RETURN 

1930 IF PERI*="K7" THEN PERI*="DISK":!DI 
SC:RETURN 
1940 RETURN 
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AMSTRAD 


GALACTICA 

Reprise du célèbre thème de Boulder Dash. Votre héros, un martien, creuse et 
collecte des piles d’énergie. Mais attention, si le jeu possède plusieurs tableaux, 
vous ne devez compter que sur une seule vie pour sortir de cet enfer! 


100 ? * * 

110 ’ #MATERIEL=;: : AMSTRAD CPC 464 + DRIVE * 
120 ’* * 

130 ’%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
140 •’ 

150 ■’ 

160 SYMBOL AFTER 20 

170 SYMBOL 20,0,0,0,0,0,0,0,0 


180 

SYMBOL 

33,16,16 

, 16, 16,16,0, 16,0 

190 

0 

200 

, 3< 

SYMBOL 

34, 

36, 

36, 36, 0, 0, 0, 0, 

SYMBOL 
b, 0 

35, 

36, 

36, 126, 36, 126, --ù 

210 

, 0 

SYMBOL 

36, 

8, 

30, 40, 28, 10, 60, 8 

220 

0 

230 

58, 

SYMBOL 

37, 

0, 

66, 4, 8, 16, 32, 66, 

SYMBOL 

0 

38, 

24, 

36, 40, 16, 42, 68, 

240 

SYMBOL 

39, 

8, 

8, 16, 0, 0, 0, 0, 0 

250 

, 0 

SYMBOL 

40, 


16, 32, 32, ' 32, 16, 8 


260 

SYMBOL 

41 , 

16, 

8, 

4, 

4, 

4, 

8, 

16, 0 

270 

SYMBOL 

42, 


84, 

56 

, 1 

24, 

56, 

84, 

0, 0 









280 

SYMBOL 

43, 

0, 

16, 

16 

!» 1 

24, 

16, 

16, 

0, 0 








290 

SYMBOL 

44, 

0, 

0-. 

0, 


0. 

8, 8 

, 16 

300 

SYMBOL 

45, 

0, 

0, 

0, 

124 

, 0 

, 0, 

0, 0 

310 

SYMBOL 

46, 

0, 

0, 

0, 

0, 

0, 

0, 16, 0 

320 

CA 

SYMBOL 

47, 

0, 


4, 

8, 

16, 

32, 

64, 

VJ 

330 

SYMBOL 

48, 

24, 

, 36 

», 66, 

66, 

66, 

36, 

24, 

0 








28, 0 

340 

SYMBOL 

49, 

8, 

24, 

8, 

8, 

8, 

8, 


350 SYMBOL 242, ?<X'l 1000, &X 10100, ?<X 1111001 
0, ?<X 10001 , & X 10001, & X 11 1 10010, &X 10100,&X1 
1000 


360 

26, 

SYMBOL 

0 

50, 

60, 

66, 

2, 

12, 48, 64, 1 

370 

, 0 

SYMBOL 

51, 

60, 

66, 


12, 2, 66, 60 

380 

4, i 

SYMBOL 

0 

52, 

12, 

20, 

36, 

68, 126, 4, 









390 SYMBOL 53, 126, 64, 64, 124, 2, 66, 
60, 0 

400'SYMBOL 54, 60, 66, 64, 124, 66, 66, 
60, 0 

410*SYMBOL 55, 126, 2, 4, 8, 16, 16, 16 
, 0 

420 SYMBOL 56, 60, 66, 66, 60, 66, 66, 
60, 0 

430 SYMBOL 57, 60, 66, 66, 62, 2, 66, 6 

0 , 0 

440 SYMBOL 58, 0, 0, 0, 16, 0, 0, 16, 0 
450 SYMBOL 59, 0, 0, 0, 8, 0, 8, 8, 16 
460 SYMBOL 60, 4, 8, 16, 32, 16, 8, 4, 

0 

470 SYMBOL 61,0,0, &X 111111, &X 100000, ?<X 10 
0000,&X111111,0,0 

480 SYMBOL 62, 32, 16, 8, 4, 8, 16, 32, 

0 

490 SYMBOL 63, 60, 66, 2, 4, 8, 0, 8, 0 
500 SYMBOL 64, 60, 66, 154, 170, 156, 6 
4, 56, 0 

510 SYMBOL 65, 24, 36, 66, 66, 126, 66, 
66, 0 

520 SYMBOL 66, 124, 66, 66, 124, 66, 66 
, 124, 0 

530 SYMBOL 67, 28, 34, 64, 64, 64, 34, 
28, 0 

540 SYMBOL 68, 120, 68, 66, 66, 66, 68, 

120 , 0 

550 SYMBOL 69, 126, 64, 64, 120, 64, 64 
, 126, 0 

560 SYMBOL 70, 126, 64, 64, 120, 64, 64 

, 64, 0 

570 SYMBOL 71, 28, 34, 64, 78, 66, 34, 
28, 0 

580 SYMBOL 72, 66, 66, 66, 126, 66, 66, 

66 , 0 

590 SYMBOL 73, 56, 16, 16, 16, 16, 16, 
56, 0 

600 SYMBOL 74, 14, 4, 4, 4, 68, 68, 56, 
0 

610 SYMBOL 75, 66, 68, 72, 112, 72, 68, 
66, 0 

620 SYMBOL 76, 64, 64, 64, 64, 64, 64, 
126, 0 

630 SYMBOL 77, 66, 102, 90, 66, 66, 66, 
66, 0 

640'SYMBOL 78, 66, 98, 82, 74, 70, 66, 
66, 0 

650 SYMBOL 79, 60, 66, 66, 66, 66, 66, 
60, 0 

660 SYMBOL 80, 124, 66, 66, 124, 64, 64 
, 64, 0 

670 SYMBOL 81, 60, 66, 66, 66, 74, 68, 
58, 0 

680 SYMBOL 82, 124, 66, 66, 124, 68, 66 

, 66, 0 

690 SYMBOL 83, 60, 66, 64, 60, 2, 66, 6 

0 , 0 

700 SYMBOL 84, 124, 84, 16, 16, 16, 16, 
56, 0 

710 SYMBOL 85, 66, 66, 66, 66, 66, 66, 
60, 0 

720 SYMBOL 86, 66, 66, 66, 66, 66, 36, 
24, 0 

730 SYMBOL 87, 130, 130, 130, 130, 146, 
170, 68, 0 

740 SYMBOL 88, 66, 66, 36, 24, 36, 66, 
66, 0 

750 SYMBOL 89, 130, 130, 68, 56, 16, 16 
, 16, 0 

760 SYMBOL 90, 126, 2, 4, 24, 32, 64, 1 
26, 0 

770 SYMBOL 91,56,68,186,162,186,68, 56,0 
780 SYMBOL 92, 192, 96, 48, 24, 12, 6, 
2, 0 

790 SYMBOL 93, 60, 4, 4, 4, 4, 4, 60, 0 
800 SYMBOL 94, 8, 28, 62, 8, 8, 8, 8, 0 


810 SYMBOL 95, 0, 0, 0, 0, 0 , 0 > 0 > 

820 SYMBOL 96, 16, 8, 4, 0, 0, 0, 10 > g 
830 SYMBOL 97, 0, 0, 56, 4, 60, 68, jB, 
0 

840 SYMBOL 98, 64, 64, 92, 98, 66, 66, 

124 0 

850’SYMBOL 99, 0, 0, 60, 64, 64, 64, 60 

860 SYMBOL 100, 2, 2, 58, 70, 66, 66, 6 
2 0 

870 SYMBOL 101, 0, 0, à®» 124, 64, 

880 SYMBOL 102, 24, 36, 32, 112, 32, 32 

890 SYMBOL 103, 0, 2, 60, 66, 66, 60, 2 
,60 __ , , 


900 SYMBOL 104, 64, 64, 76, 82, 98, 66, 
66 , 0 

910 SYMBOL 105, 8, 0, 24, 8, 8, 8, ^8, 

0 


920 SYMBOL 106, 2, 0, 6, 2, 2, 66, 66, 

60 

930 SYMBOL 107, 64, 64, 66, 68, 120, 68 
, 66, 0 

940 SYMBOL 108, 24, 8, 8, 8, 8, 8, 30, 

0 

950 SYMBOL 109, 0, 0, 68, 170, 146, 146 
, 146, 0 

960 SYMBOL 110, 0, 0, 92, 98, 66, 66, 6 
6, 0 

970 SYMBOL 111, 0, 0, 60, 66, 66, 66, 6 

0 , 0 

980 SYMBOL 112, 0, 0, 124, 34, 34, 60, 

990 SYMBOL 113, 0, 0, 58, 68, 68, 60, 4 
» 14 

1000 SYMBOL 114, 0, 0, 108, 50, 32, 32, 
112, 0 

1010 SYMBOL 115, 0, 0, 60, 64, 60, 2, 1 
24, 0 

1020 SYMBOL 116, 32, 32, 120, 32, 32, 3 
4, 28, 0 

1030 SYMBOL 117, 0, 0, 66, 66, 66, 70, 

58, 0 

1040 SYMBOL 118, 0, 0, 66, 66, 66, 36, 
24, 0 

1050 SYMBOL 119, 0, 0, 130, 146, 146, 1 

70, 68, 0 

1060 SYMBOL 120, 0, 0, 66, 36, 24, 36, 
66, 0 

1070 SYMBOL 121, 0, 0, 66, 66, 66, 62, 

2, 124 

1080 SYMBOL 122, 0, 0, 126, 68, 24, 34, 

126, 0 

1090 SYMBOL 123, 12, 16, 16, 32, 16, 16 

, 12, 0 

1100 SYMBOL 124, 24, 24, 24, 24, 24, 24 
, 24, 0 

1110 SYMBOL 125, 48, 8, 8, 4, 8, 8, 48, 
0 

1120 SYMBOL 126, 118, 220, 0, 0, 0, 0, 

0 , 0 

1130 SYMBOL 127, 204, 51, 204, 51, 204, 
51, 204, 51 „ „ „ 

1140 SYMBOL 128, 0, 0, 0, 0, 0, 0, 0, 0 
1150 sc=0:BORDER 0 

1160 DEF FN Z*=LEFT*<A*(Y),X-l>+CHR$(32) 
+RIGHT*(A$<Y>,20-X) 

1170 DEF FN Y$=MID$ (A* (Y--1 ) , X, 1 > s ENV 1,1 
27,-100,20 

1180 ENT 2,100,2,2:ecr=0:DIM a$<13> 

1190 SYMBOL 243,&X11111110,&X11110010,&X 
11100000, ?< X 100000, &X 10000, X1000, & X100, S< 
XUUl 

1200 SYMBOL 244, ?•<X 1111111, &X 1001111, &X11 
1, S<X 100, ?<X 1000, ?<X 10000, S<X 100000, &X 111110 
00 

1210 SYMBOL 246,&X11000100,&X100111,&X10 





* 
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001, &X 1011, &X 1111, &X 10101, &X 111111, &X 100 
1001 

1220 SYMBOL 245, &X 100011,ScX 11100100, ?<X 10 
001000,&X11010000, ?<X 11110000,&X1010000, 

XI111 il 00, &X 100100 

1230 SYMBOL 251, &X 100100,&X 10010, Ï<X 1001, 
&X 11001001 , &X1 10001 ,&X 10000010,&X 1010100 
, S<X 101000 

1240 SYMBOL 252, &X 10010,S<X 100010, &X 10010 

0, & X 101 10,^X10001, ?<X 100001, 8<X 11 1 10 
1250 SYMBOL 253, ?<X 1000, ?<X 10100, S<X 1010001 
0,&X1011001,&X11101010, «<X 1001 ,&X11010,&X 
100110 

1260 SYMBOL 254, 10, ?<X 1 101, ?<X 110000, ?<X 100 
0100, &X 10001011, &X i 0010000, &X 1001110, & X 1 
00010 

1270 SYMBOL 207,&X111001,&X10010011,&X10 
0001, S<X 1110000, ?<X 100100, &X 10001110, &X 110 
0010i , &X10010000 

1280 SYMBOL 255,&X 10010110, &X 1000001, &X 1 
1000, 3< X10000000, &X 110001, & X100, & X 1000000 
0,&XI0001 

1290 SYMBOL 247, &X 1111000,&X 111000,&X 111 
1000, 3<X 11111000, S<X 11111000,&X 110000,&X11 
100000,&X11000000 

1300 SYMBOL 248, ?<X 11111, &X 11110, &X 11111, 
8cX 11111, «cX 11111, &X1110, &X 111, &X 11 
1310 SYMBOL 249,3<X 11000000,&X100000, &X 10 
010000, 8<X10001000, &X 10001000, ?<X 1 1000, &X 1 
11000, ?<X11111000 

1320 SYMBOL 250, «<X 11, &X 100, &X 1001,8<X 1000 

l,&X10001,?<X11000,S<Xill00,8<XUlll 

1330 BORDER 0:INK 0,0:INK 1,26:INK 2,2,1 

1 : INK 3,6:GOSUB 2050:MODE 1 

1340 PAPER 0: F'EN 1 : BORDER 0 

1350 GOTO 1910 

1360 REM 

1370 REM******AFFICHAGE ECRAN*********** 
1380 REM 

1390 FOR B=1 TO 12:READ a*(B) 

1400 FOR K=1 TO 20:B*=MID$(A*(B),K,1) 
1410 IF B*="m" THEN PEN 2:C*=STRïNG*(4,C 
HR*<255)) 

1420 IF B*="h" THEN PEN 1 :C*=STRING*<4,C 
HR*(207)) 

1430 IF B*=" " THEN C*=STRING*<4," ") 
1440 IF B*="r" THEN PEN 3:C*=CHR*(254)+C 
HR*(253)+CHR*< 252)+CHR*(251) 

1450 IF B*="p" THEN PEN 2:C*=CHR$(250)+C 
HR* < 249)4 CHR*< 248)+CHR* < 247) 

1460 LOCATE K#2-1,B*2-l: PRINT MID*(C*,1, 
2):LOCATE K*2-1,B*2:PRINT MID*(C*,3,2); 
1470 NEXT K:NEXT B:READ POM,TPS,X,Y 
1480 PEN 1:PRINT "SCORE:" ; USING "#####"; 
SC;:LOCATE 15,25:PRINT "ENERGIE:"; USING 
"###";TPSs : PRINT " URANIUM:";ÜSING " 

##";PÔM; 

1490 RETURN 
1500 REM 

1510 REM******************************** 

1520 REM 

1525 LOCATE x*2-1,y*2-1 :PRINT CHR*<246) + 
CHR*(245):LOCATE x*2-1,y#2:PRINT CHR*<24 
4)+CHR*(243) 

1530 B*=INKEY*:IF B*="" THEN 1530 

1540 IF B*<CHR*(240) OR B*>CHR*<243> THE 

N 1530 EL..SE LOCATE X*2-l, Y*2-l : PRINT " 

":LOCATE X#2-1,Y*2:PRINT " 

1550 GOSUB 1890:ON (ASC(B*)-239) GOSUB 1 

560,1610,1670,1730:GOTO 1660 

1560 C*=MID*(À*(Y-1),X,1):TB=0 

1570 IF C*=" " THEN V=Ÿ-1:RETURN 

1580 IF C*="h" THEN Y=Y-1 : A*(Y)=FN Z*:RE 

TURN 

1590 IF C*="p" THEN Y=Y-1 :GOSUB 1790:A*< 
Y)=FN Z*:RETURN 
1600 RETURN 


1610 C*=MID*(A*(Y+1) ,X, 1) : IF FN Y*="r" T 
HEN TB=1: X1 = X:Y1=Y ELSÈ TB=0 
1620 IF C*=" " THEN Y=Y+1:RETURN 
1630 IF C*="h" THEN Y=Y+1 : A*<Y)=FN Z*:RE 

TURN 

1640 IF C*="p" THEN Y=Y+1:GOSUB 1790:A*< 
Y)=FN Z*:RETURN 
1650 TB=0:RETURN 

1660 PEN 1:LOCATE X*2-l,Y*2-l:PRINT CHR* 
(246);CHR*(245):LOCATE X*2-l,Y*2:PRINT C 
HR*(244);CHR*(243): IF TB=0 THEN 1530 ELS 
E GOSUB i800:GOTO 1530 

1670 C*=MID*(A*(Y),X-1,1): IF FN Y*="r" T 

HEN TB=1: X1 = X:Y1=Y:ELSÈ TB=0 

1680 IF C*=" " THEN X=X-1:RETURN 

1690 IF C*="h" THEN X = X-1: A*(Y)=FN Z*:RE 

TURN 

1700 IF C*="p" THEN X = X-1 :GOSUB 1790:A*< 

Y)=FN Z*:RETURN 

1710 IF C*="r" THEN GOTO 1880 

1720 TB-0:RETURN 

1730 C*=MID* <A*(Y),X + 1,1):IF FN Y*="r" T 

HEN TB=1:X1=X:Y1=Y:ELSE TB=0 

1740 IF C*=" " THEN X=X+1:RETURN 

1750 IF C*="h" THEN X = X + 1: A*(Y)=FN Z*:RE 

TURN 

1760 IF C*="p" THEN X=X+l:GOSUB 1790:A*< 

Y)=FN Z*:RETURN 

1770 IF C*="r" THEN GOTO 1870 

1780 TB=0:RETURN 

1790 SC=SC+50:FOR i=90 TO 95:SOUND l,i,2 
,15:NEXT i:POM=POM-l:PEN 3:LOCATE 7,25:P 
RINT USING "#####";SC;:LOCATE 39,25:PRIN 
T USING "##";POM;:ÏF POM=0 THEN I960 ELS 
E RETURN 
1800 tb=0 

1810 IF MID* (A* (Y1 ) , X1, 1)0" " THEN SOUN 

D 130,200,100,7,1,2,5:RETURN 

1820 PEN 3:L0CATE X1*2-1,Y1*2-3:PRINT " 

":LOCATE X1*2-1,Y1*2-2: PRINT " 

1830 A* <Y1-1)=LEFT*(A*(Yl —1),X1-1)+CHR*< 
32)+RIGHT* < A*(Y1-1),20-Xl): A*<Y1)=LEFT*< 
A*(Y1),Xl-l)+"r"+RIGHT*<A*(Yl),20-Xl): LO 
CATE XI*2-1,Y1*2-1:PRINT CHR*(254);CHR*< 
253):LOCATE X1*2-1,Yl*2:PRINT CHR*(252); 

1840 ÏF X1=X AND Y1=Y THEN FOR 1=15 TO 8 
STEP-1:SOUND 1,500,20,I,,,1 :NEXT I :GOSU 
B 2310 

1850 ’FOR 1=15 TO 8 STEP -1:SOUND 1,500, 
20,I,,,1:NEXT I :GOSUB 2040 
1860 Y1=Y1 +1 : GOTO 1810 

1870 IF MID*(A*(Y),X+2,1)=" " THEN PEN 3 
:LOCATE X*2+l,Y*2-i:PRINT " ";CHR*(254) 

;CHR*(253):LOCATE X*2+l,Y*2:PRINT " ";C 

HR*(252);CHR*(251): A*(Y)=LEFT*(A*(Y),X) + 
CHR*(32)+"r"+RIGHT*(A*(Y), 18-X): Xl = X+2:Y 
1=Y+1:GOSUB 1730:GOTO 1800:ELSE RETURN 
1880 IF MID*(A*(Y),X-2,1)=" " THEN PEN 3 
:LOCATE X*2~5,Y*2~l:PRINT CHR*(254);CHR* 
(253);" ":LOCATE X*2-5,Y*2:PRINT CHR*(2 

52);CHR*(251);" ": A*(Y)=LEFT*(A*<Y),X-3 

)+"r"+CHR*(32)+RIGHT*(A*(Y),21-X):Xl=X-2 
:Y1=Y+1:GOSUB 1670:GOTO 1800:ELSE RETURN 
1890 TPS=TF*S-1 : PEN 3: LOCATE 23, 25: PRINT 
USING "###";TPS;: IF TPS>0 THEN RETURN 
1900 GOTO 2310 
1910 REM 

1920 REM**********PROGRAMME************* 
1930 REM 

1940 ECR=ECR+1 : IF ECR=26 THEN GOTO 1970 
1950 GOSUB 1360:GOTO 1500 
1960 CLS:GOTO 1940 

1970 REM******#****#*GAGNE************** 
1980 MODE 1 :PEN 2 

1990 LOCATE 11,1 :PEN 3:PRINT " VOUS AVE 
Z GAGNE ":PEN 1 :LOCATE 12,2:PRINT STRIN 


38 


\ 




G*U7,CHR* ( 154) ) 

2000 ZONE 80sPEN 3s PRINT ," JAMAIS PER 
SONNE AVANT VOUS N’AVAIT ACHEVE CET 

TE PERILLEUSE MISSION."ïPRINT:PRINT" V 
OTRE PAYS EST FIER DE VOUS CAR V 

OUS AVEZ MONTRER VOTRE COURAGE A 

UX YEUX DE TOUS ! !"ïPRINT:PRINTsPRINT"VO 
TRE SCORE:";sc 

2010 PEN 3:PRINT STRING*(12,CHR* <154)):L 
OCATE 12,20:PRINT"PATIENTEZ...":LOCATE 1 
2,21:PRINT STRING*(12,CHR*<154)>:FOR i=l 
TO 5000 : CALL &BD24:CALL S<BD25:CALL &BD 
23:NEXT i: MODE 1 :RUN 
2020 REM 

2030 ’**************DEBUT*************** 
t 

2040 ’ 

2050 MODE 1:PAPER 0:PEN 1 : FOR i=4 TO ^6: 
LOCATE 1,1:PRINT CHR*(207):LOCATE 1,8:PR 
INT CHR*'<207):LOCATE 1,7:PRINT CHR*(207) 

:LOCATE 1,2:PRINT CHR*(207):LOCATE 1,24: 
PRINT CHR*(207):LOCATE 1,25: PRINT CHR*(2 
07):NEXT i 

2060 FOR 1=3 TO 23:L0CATE 4,I:PRINT STRI 
NG*(2,CHR*(207)):LOCATE 35,1:PRINT STRIN 
G*(2,CHR*(207)):NEXT I 

2070 PEN 2:LOCATE 16,9:PRINT "OPTIONS": P 
EN 1:LOCATE 14,10:PRINT STRING*(11,CHR*( 
207)):LOCATE 14,9:PRINT CHR*(207):LOCATE 
24,9:PRINT CHR*(207) 

2080 PEN 2:LOCATE 14,3:PRINT STRING*(11, 
CHR*(208)):LOCATE 14,5:PRINT STRING*(11, 
CHR*(210)):FOR i=3 TO 5 :LOCATE 13,i:PRI 
NT CHR*(209):LOCATE 25,i:PRINT CHR*(211) 

:NEXT i:PEN 1 :LOCATE 15,4:PRINT"GALACTIC 
A" 

2090 PEN 3:LOCATE 10,13:PRINT"1":PEN 1:L 

OCATE 11,13:PRINT".JOUER A GALACTICA 

":LOCATE 10,16:PEN 3:PRINT"2":LOCATE 11, 

16:PEN 1 : PR ï NT".INSTRUCTIONS" 

2100 PEN 3:LOCATE 10,19:PRINT"3":LOCATE 
11,19:PEN 1 :PRINT".....VOIR LES TABLEAUX 


2110 PEN 3:LOCATE 11,23:PRINT CHR*(164); 
" Belatrache Kader" 

2120 IF INKEY(57)=0 THEN 2320 
2130 IF INKEY(65)=0 THEN 2150 
2140 IF INKEY(64)=0 THEN RETURN ELSE 212 
0 


2150 ’ 

2160 ’**********INSTRUCTIONS************ 
2170 MODE 1 :PEN 2:LOCATE 15,1 :PRINT"INST 
RUCTIONS":LOCATE 15,2:PRINT STRING*(12,C 
HR*(154)) 

2180 WINDOW #1,36,4,24,7: PAPER#1,0:CLS#1 
2190 PEN 3:LOCATE 16,5:PRINT"SCENARIO";C 
HR*(61);CHR*(242):LOCATE 16,6:PRINT STRI 
NG*(10,CHR*(154)) :PEN#1,1 : PRINT#1 : PRINT# 
1,"En raison d’erreurs de cal cul s,vouset 
votre navette avez atteridans une ga 
laxie inconnue.":PRINT#1 
2200 PRINT#1,"Pour survivre,vous devez 
prendreles piles d’uranium éparpillées 
sur votre parcours.":PR INT#1 
2210 FRINT#1,"Mai s votre quete ne sera p 
as sansdanger car les meteorites vous 
guettent...":PRINT#1 

2220 PRINT#1,"Pour vous deplacer,uti1i 
sez les-f léchés curseur s. ": PEN#1, 1 : LOCATE 
#1,19,17:PRINT#1,"Bonne chance!!":PEN 2: 
LQCATÈ 13,25:PRINT"<BARRE D’ESPACE>" 

2230 IF INKEY (47)00 THEN 2230 
2240 PAPER#1,0:CLS#1 :PEN#1,1 : PRINT#1 :LOC 
ATE#1,2,2:PRINT#1," CHR*(246);CHR*(2 

45) : LOCATE# 1,2,3: PRINT# 1, " CHR* (244) 

;CHR*(243):L0CÂTE#1,11,3:PRINT#1,CHR*(61 
)+CHR*(242)+" VOTRE NAVETTE" 


2250 PEN#1,3:LOCATE#1,2,5:PRINT#1," "; 
CHR*(254)+CHR*(253):LOCATE#1,2,6: PRINT#1 
," ";CHR*(252)+CHR*(251):PEN#1,1:LOCAT 
È#1,11,6: PRINT#1,CHR*(61)+CHR*(242)+" UN 
F. METEORITE" 

2260 PEN#1,2:LOCATE#1,2,8:PRINT#1," 

CHR*(250)+CHR*(249):LOCATE #1,2,9:PRINT# 

I, " ";CHR*(248)+CHR*(247):PÈN#1,1:LOCA 
TE #1,11,9:PRINT#1,CHR*(61)+CHR*(242)+" 
PILE D’URANIUM" 

2270 PEN#1,1:LOCATE#1,2,11 : PRINT#1," 

: STRING* (2, CHR* (207) ) : LOCATE# 1,2, 12.-PRIN 
T#1," "; STRING*(2,CHR*(207)):LOCATE#1, 

II, 12: PRINT#1,CHR*(61)+CHR*(242)+" ETOIL 
ES GALACTIQUES" 

2280 PEN#1,2:LOCATE#1,2,14: PRINT#1, 

; STRING*(2,CHR*(255)):LOCATE#1,2,15:PRIN 
t#1," "; STRING*(2,CHR*(255) ):PEN#1, 1:L 

OCATE#1,11,15:PRINT#1,CHR*(61)+CHR*(242) 
+" LIMITES GALACTIQUES" 

2290 IF INKEY (47)00 THEN 2290 ELSE 2040 
2300 ’*************#PERDU*************** 
2310 MODE 0:FOR i=l TO 1000:NEXT i:CLS:P 
EN 3:LOCATE 3.12:PRINT"G AME 0 V E R" 
:GOSUB 5860:FOR i=l TO 1000:NEXT:RUN 
2320 MODE 1 : FOR 1 = 1 TO 25:GOSUB 1360:NEX 
T I :RUN 

2324 ’********************************* 

2325 ’***********LES ECRANS************ 

2326 ’********************************* 

2330 REM ECRAN No 1 

2340 DATA mmmmmmmmmmmmmmmmmmmm 
2350 DATA mhhhhhhhhhhhhhhhhhhm 
2360 DATA mhhrrrhhrrrhhhhhrrrm 
2370 DATA mhrphhhhrpprhhhrphhm 
2380 DATA mrphhhhhrpprhhrphhhm 
2390 DATA mrphhhhhrpprhhrphhhm 
2400 DATA mrphhhhhrpprhhrphhhm 
2410 DATA mrphhhhhrrrhhhrphhhm 
2420 DATA mhrphhhhrhhhhhhrphhm 
2430 DATA mhhrrrhhrhhhhhhhrrrm 
2440 DATA mhhhhhhhhhhhhhhhhhhm 
2450 DATA mmmmmmmmmmmmmmmmmmmm 
2460 DATA 18, 100,2,2 
2470 REM ECRAN No 2 

2480 DATA mmmmmmmmmmmmmmmmmmmm 
2490 DATA mphrrhhhrrhrrhhrrhpm 
2500 DATA mhr rhrpprpprhr rhm 


2510 

DATA 

mr 

hrpprpprhr 

rm 

2520 

DATA 

mr 

hr 

r 

rhr 

rm 

2530 

DATA 

mr 

rrhr 

r 

rhr 

rm 

2540 

DATA 

mr 

rhr 

r 

rhr 

rm 

2550 

DATA 

mr 

rhr 

r 

rhr 

rm 

2560 

DATA 

mhr 

rhr 

r 

rhr 

rhm 


2570 DATA mhhrrhhhrrhrrhhrrhhm 
2580 DATA mhhhhhhhhhhhhhhhhhpm 
2590 DATA mmmmmmmmmmmmmmmmmmmm 
2600 DATA 11,150,2,11 
2610 REM ' ECRAN No 3 
2620 DATA mmmmmmmmmmmmmmmmmmmm 
2630 DATA mm r hr r mrmmr rm 
2640 DATA mmmpmmhhmh mprhhhhhm 
2650 DATA m hhhhhrhr hhhmmm m 
2660 DATA mmmpmmhrhr mmmmrrm m 
2670 DATA mm r hrhr hhhhhhhpm 
2680 DATA m hhhhhhr mmmmmmmmmm 

2690 DATA mm r hrhr rrrrrrrrm 
2700 DATA mmmpmmhrhr hhhhhhhpm 
2710 DATA mphhhhhrhr mmmmmmmmm 
2720 DATA mrrrrrhrhr hhhhhhhpm 
2730 DATA mmmmrnmmmmm mmmmmmmmm 
2740 DATA 8,200,2,4 
2750 REM ' ECRAN No 4 
2760 DATA mmmmmmmmmmmmmmmmmmmm 
2770 DATA m hhhhhhrrrhhhhhhhhm 
2780 DATA mhhhhhhhhhprmmmmmmhm 
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2790 DATA mphhhhhhrrhprmmmmmhm 
2800 DATA mrphhhhhmmrhprmmmhhm 
2810 DATA mrrphhhhhhmrhpr mhphm 
2820 DATA mrrrphhhpphmrhprmhhm 
2830 DATA mrrrrphhmmphmrhprmmm 
2840 DATA mrrrrrphppmphmrhprmm 
2850 DATA mrrrrrrphhpmphmrhprm 
2860 DATA mrrrrrrrmmhpmphhr hm 
2870 DATA mmmmmmmmmmmmmmmmmmmm 
2880 DATA 26,200,2,2 
2890 REM ECRAN No 5 

2'900 DATA mmmmmmmmmmmmmmmmmmmm 
2910 DATA m mrrrrrphhph rpr mm 
2920 DATA mhhhphpmphrrrm p p m 
2930 DATA mhhhphpmmrhhp mmmmm 
2940 DATA mrhmmmmmhhmmmr rr m 
2950 DATA mhhmr rrh rrhr hpr m 
2960 DATA m rmp pprprrhr rrr m 
2970 DATA m hmh mmphhhpr mmmmm 
2980 DATA m hmhhhmmmmmmmmmmmmm 
2990 DATA m hr rhhhrrrrrrrmmmm 
3000 DATA mmrh phhhhhhhhprmmmm 
3010 DATA mmmmmmmmmmmmmmmmmmmm 
3020 DATA 20,200,2,2 
3030 REM ÉCRAN No 6 

3040 DATA mmmmmmmmmmmmmmmmmmmm 
3050 DATA mrrr rrr rr rpr rrrm 
3060 DATA mrpr rpr rr rpr rppm 
3070 DATA mrrr rpr rr rpr rrrm 
3080 DATA mrpr rpr rr rpr pprm 
3090 DATA mrrr rrr rr rrr rrrm 
3100 DATA m m 

3110 DATA m pppppppppppppppppm 
3120 DATA m mmmmmmmmmmmmmmmmmm 
3130 DATA m mmmmmmmmmmmmmmmmmm 
3140 DATA mppppppppppppppppppm 
3150 DATA mmmmmmmmmmmmmmmmmmmm 
3160 DATA 48,200,2,8 
3170 REM ECRAN No 7 

3180 DATA mmmmmmmmmmmmmmmmmmmm 
3190 DATA mhhhrr rm 

3200 DATA mhrh mmp r r r r pm 
3210 DATA mmpm mmp p p p p m 
3220 DATA mhhh mrrrpr r r r m 
3230 DATA mhrh mphhhhhhhhhhhhm 
3240 DATA mmpm mhhhhhhrhhhrhhm 
3250 DATA mhhh mmmmmrr mmr mmm 
3260 DATA m rr mmmmmp mp m 
3270 DATA mphh mmmmmmmmmmmmmmm 
3280 DATA mmmmmmmmmmmmmmmmmmmm 
3290 DATA mmmmmmmmmmmmmmmmmmmm 
3300 DATA 14,200,5,3 
3310 REM ECRAN No 8 

3320 DATA mmmmmmmmmmmmmmmmmmmm 
3330 DATA mhrprphhhhhhhhmmmmhm 
3340 DATA mhrhprphmhphhhpppphm 
3350 DATA mhphrprphmrhhhrrrrhm 
3360 DATA mh hhhprphmhhhpppphm 
3370 DATA mhhhhhrprphmhhhrrhhm 
3380 DATA mhhhhhhhprphmhhpphhm 
3390 DATA mrpphpphrprphmhhhhhm 
3400 DATA mprrhrrhhhprphhppppm 
3410 DATA mhhhrhhhhhr rhhrrrrm 
3420 DATA mhhhhhhhhhh rhhhhh m 
3430 DATA mmmmmmmmmmmmmmmmmmmm 
3440 DATA 37,380,19,11 
3450 REM ECRAN No 9 

3460 DATA mmmmmmmmmmmmmmmmmmmm 
3470 DATA mrrr mmmmmmmmmmm rmm 
3480 DATA mrpr r pm 

3490 DATA mrrr mmmmmmmmmmmmmrm 
3500 DATA mp r r p pm 

3510 DATA mmm mm pr mmmmp m m 
3520 DATA m r mrmrr mmmp mp m 
3530 DATA m hm mphmr mmp m m 
3540 DATA m pm mph m mp m m 
3550 DATA m hm mppprmmpm m 


3560 DATA mhmm hh hpm rpm 

3570 DATA mmmm mmmmmmmmmmmmmmm 
3580 DATA 20,200,18,3 
3590 REM ECRAN No 10 

3600 DATA mmmmmmmmmmmmmmmmmmmm 
3610 DATA mpppppp r pppppppppm 
3620 DATA mmmmmmmmm mmmmmmmmm 
3630 DATA mhphphphppphphphphpm 
3640 DATA mmmmmmmm mmmmmmmm 

3650 DATA mrrr m rm m 

3660 DATA mphh m r m 

3670 DATA mmrm m mr rrrrm 

3680 DATA m r mmm hhhpm 

3690 DATA mmmmmmm mrmmmmmmmmmm 
3700 DATA mrrrrrrrmhmrrrrrrrrm 
3710 DATA mmmmmmmmmrmmmmmmmmmm 
3720 DATA 27,200,8,2 
3730 REM ECRAN No 11 

3740 DATA mmmmmmmmmmmmmmmmmmmm 
3750 DATA mhhhrr rm 

3760 DATA mhrh mmp r r r r pm 
3770 DATA mmpm mmmp p p p p m 
3780 DATA mhhh mrrrpr rrr m 
3790 DATA mhhhhhhhhhhhhhhhhhhm 
3800 DATA mm mmmmmmmmmmmrrmmmm 
3810 DATA m hr pm 

3820 DATA mmmmmmmm mmmmmmm pm 
3830 DATA m ppp ppp mmmm 

3840 DATA m p p m 

3850 DATA mmmmmmmmmmmmmmmmmmmm 
3860 DATA 19,200,13,8 
3870 REM ECRAN No 12 

3880 DATA mmmmmmmmmmmmmmmmmmmm 
3890 DATA mpppppppprpppppppppm 
3900 DATA mppppppprprppppppppm 
3910 DATA m mmmmmmm hrhhhhhhhm 
3920 DATA m mmmmmmmm 

3930 DATA mmmmmmmmm m mmmmmmmm 
3940 DATA mp mp rrrm 

3950 DATA m rmm pm 

3960 DATA m mmm mmmm 

3970 DATA m mm r m 

3980 DATA m m 

3990 DATA mmmmmmmmmmmmmmmmmmmm 
4000 DATA 36,200,10,4 
4010 REM ' ECRAN No 13 
4020 DATA mmmmmmmmmmmmmmmmmmmm 
4030 DATA mrr r hhhhhpmrrrrrrm 


4040 

DATA 

m 

h 

hhrrmmm 


m 

4050 

DATA 

m 

m 

hhppppm 

mmm 

m 

4060 

DATA 

m 

m 

hhmmmmm 

mppm 

m 

4070 

DATA 

m 

m 

m 

mpm 

m 

4080 

DATA 

m 

m 

m 

m m 

m 

4090 

DATA 

m 

m 

mmmr 

r m 

m 

4100 

DATA 

m 

m 

m 

m 

m 

4110 

DATA 

m 

m 

mmmm hh 

r r 

m 

4120 

DATA 

m 

pm 

mm 

mpp 

m 

4130 

DATA 

mmmmmmmmmmmmmmmmmmmm 

4140 

DATA 

11 

9 

00,4,2 



4150 

REM 



ECRAN No 

14 



4160 DATA mmmmmmmmmmmmmmmmmmmm 


4170 DATA mpppppp ppppppm 
4180 DATA mppppp pppppm 
4190 DATA mpppp ppppm 
4200 DATA mppp pppm 
4210 DATA mppp pppm 
4220 DATA mppp pppm 
4230 DATA mppp pppm 
4240 DATA mpppp ppppm 
4250 DATA mppppp pppppm 
4260 DATA mpppppp ppppppm 


4270 DATA mmmmmmmmmmmmmmmmmmmm 
4280 DATA 84,200,10,6 
4290 REM ' ECRAN No 15 
4300 DATA mmmmmmmmmmmmmmmmmmmm 
4310 DATA m rhhh pr mhh r r rm 
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4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


mmpmhhhmp r p p pm 
mhhhhhhhhmm h mmm m 
mmmmmmmmmrmrh hhpmhm 
mphhhhhhh phh rrrmhm 
mmhrhhhhh m h pppmhm 
mmmprhhhh m mmmrmmhm 
mmmmprhhh m hhhhhhhm 
mmmmmprhh mhhhhhhhhm 
mmmmmmprh mmhhhhhhhm 
mmmmmmmmm mmmmmmmmmm 
16,200,2,4 

ECRAN No 16 
mmmmmmmmmmmmmmmmmmmm 
mppppmmmpppm 
mppppmmmppm 
mp p p p r r r p pm 
mp p p p m m m p m 
mmmmmmmmmmmm m mmmmm 
mrrrrrr mmm m 
mmp r r m 

mmmmmmmm m mp mmmm 
m mm mmmmm 

mmmmm mm mmmmmmm 
mmmmmmmmmmmm mmmmmmm 
26,200,3,3 

ECRAN No 17 
mmmmmmmmmmmmmmmmmmmm 
mmm rrrrr'rrr mmm 
mmmm pppppppm mmmm 
m r mmmmmmmm r m 
m mmmmmmmmmmmmmm m 
m r r r m 

m hmmmmmmm mmmm m 


m m pm m pm 
mmpmmmmmmmmmmmmmmmrm 
10,200,17,7 

ECRAN No 18 
mrmrrrr r r r r r r m 


mm m m ’m m m m 

mm - pppppm 

mm m m m m m m 

mm pppppm 

mm rrrrrm 

mm pppppm 

m m rrr m rmr m m 
p rpppphmp m pmp mpm 
mmmmmmmmmmmmmmmmmmmm 

26.200.5.3 
ECRAN No 19 

mmmmmmmmmmmmmmmmmmmm 
mrmrmrmrmrmrmrmrmrmr 
mp mp pmp p p p m 
m mmm mm 

mm mmmmmm mm 

mm p p m m m m mm 

m m mpmpmpmpmm 

mm mr r r r m 

mm r m 

m r m rrrrhm 

mpm mpm PPPm 

mmmmmmmpmmmmmmmmmmmm 

19.200.3.3 
ECRAN No 20 

mmmmmmmmmmmmmmmmmmmm 

mppppppppppppppppppm 

mhhhrrrrrhhhrrrrhhhm 

mhhrhhhhhrhrhhhhrhhm 

mhhhhhhhrhhrhhhhrhhm 

mhhhhhhrhhhrhhhhrhhm 

mhhhhhrhhhhrhhhhrhhm 

mhhhhrhhhhhrhhhhrhhm 

mhhhrhhhhhhrhhhhrhhm 


5090 DATA mhhhrrrrrrhhrrrrhhhm 
5100 DATA mppppppppppppppppppm 
5110 DATA mmmmmmmmmmmmmmmmmmmm 
5120 DATA 36,200,15,7 
5130 REM ECRAN No 21 

5140 DATA mmrrrrrrrrrrrrrrrrmm 
5150 DATA mppppppppppppppppppm 
5160 DATA mpmmrrrrrrrrrrrrrrpm 
5170 DATA mpmppppppppppppppppm 
5180 DATA mpmprrrrrrrrrrrrrrmm 
5190 DATA mpmppppppppppppppppm 
5200 DATA mpmmrrrrrrrrrrrrrrpm 
5210 DATA mpmppppppppppppppppm 
5220 DATA mpmprrrrrrrrrrrrrrmm 
5230 DATA mpmp pm 

5240 DATA mpm mmmmmmmmmmmmmmmm 
5250 DATA mpm p p p p p p 
5260 DATA 87,200,2,12 


70 

REM 


ECRAN No 

nn 

X-X- 


80 

DATA 

mp 

rrrr 

rr 

1 

90 

DATA 

m 

rrrr 

r r 

r 

i00 

DATA 

m 

rrrr 

r 

rr 

;i0 

DATA 

m 

rrr rrrr r 

r 

>20 

DATA 

m 

r r r 

r i 

r 

;30 

DATA 

m 

r r 

r 

rr 

140 

DATA 

m 

r r rrr 

rrr 


50 

DATA 

m 

rrr r 

r 

rrh 

:60 

DATA 

m 

r r 

r 


;70 

DATA 

m 

r rrrr rr 

rr 

r 


P--60 DA l A m r r r rm 

5370 DATA m r rrrr rr rr r m 
5380 DATA mpr r r r r rpm 
5390 DATA mmmmmmmmmrrrrmmmmmmm 
5400 DATA 4,200,3,3 
5410 REM ECRAN No 23 

5420 DATA mmmmmmmmmmmmmmmmmmmm 
5430 DATA mphhhhhhhrhhhhhhhhpm 
5440 DATA mhhhhhhhrrrhhhhhhhhm 
5450 DATA mhhhhhhrhrhrhhhhhhhm 
5460 DATA mhhhhhrhrhrhrhhhhhhm 
5470 DATA mhhhhrhhrhrhhrhhhhhm 
5480 DATA mhhhrhhrhhhrphrhhhhm 
5490 DATA mhhrhhhrhhhrhhhrhhhm 
5500 DATA mhrrhphrhhhrhhhrrhhm 
5510 DATA mhrrrrrhhhhhrrrrrhhm 
5520 DATA mpprhhhhh hhhhhrhppm 
5530 DATA mmmmmmmmmmmmmmmmmmmm 
5540 DATA 8,200,10,11 
5550 REM ECRAN No 24 

5560 DATA m rrrr m 

5570 DATA m rrrppr m 

5580 DATA m rrrrrrr m 

5590 DATA m rrrpr m 

5600 DATA m rrr m 

5610 DATA m rrrrr m 

5620 DATA m rrrrrr m 

5630 DATA m rrprpr m 

5640 DATA m rrprpr m 

5650 DATA m rrppr m 

5660 DATA m rrr m 

5670 DATA mmmmmmmrrmmmmmmmmmmm 
5680 DATA 9,200,13,2 
5690 REM ECRAN No 25 

5700 DATA mrmrrnrmrmrmrmrmrmrmm 
5710 DATA m p p p p m 
5720 DATA m p p p p m 
5730 DATA mprrrr prr prrrrpm 
5740 DATA m rp p rr p r pr m 
5750 DATA m rrr p pp prppr m 
5760 DATA m r rr r r m 

5770 DATA m r p prr r r m 
5780 DATA mr p rrpr rm 
5790 DATA mp p p p p m 
5800 DATA m p p p p m 
5810 DATA mrmrrnrmrmrmrmrmrmrmm 
5820 DATA 35,200,2,2 

5830 ’********************************* 
5840 •’ *********MUSIQUE DE MORT********* 
5850 ’******************^t************* 


prr 

prrrrpm 

rr 

p r pr 

m 

P PP 

prppr 

m 

rr 

r r 

m 

prr 

r r 

m 

rr 

p r r 

m 

P 

P P 

m 
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5860 

SOUND 

1,500,100,15 

5870 

SOUND 

1 ,0,2 

5880 

SOUND 

1,500,75,15 

5890 

SOUND 

1 ,0,2 

5900 

SOUND 

1,425,50,15 

5910 

SOUND 

1,424,40,15 

5920 

SOUND 

1 ,0,2 

5930 

SOUND 

1,450,25,15 

5940 

SOUND 

1 ,0,2 

5950 

SOUND 

1,450,75,15 

5960 

SOUND 

1 ,0,2 

5970 

SOUND 

1,500,25,15 

5980 

SOUND 

1 ,0,2 

5990 

SOUND 

1,500,75,15 

6000 

SOUND 

1 ,0,2 

6010 

SOUND 

1,525,25,15 


6020 SOUND 1,0,2 

6030 SOUND 1,500,100,15 

6040 RETURN 

160 à 1320 Redéfiniton des caractères 
1390 à 1900 Affichage écran 
1940 à 1960 Routine passage écran 
1900 à 2020 Gagné ! ! ! 

2050 à 2140 Début présentation 
2170 à 2290 Instructions 
2310 à 2320 Perdu ! ! ! 

2340 à 5020 Donner tableaux 
5860 â 6040 Musique 


AMSTRAD 


OTHELLO 

Un Othello classique sur un échiquier de 8 x 8 cases. 

Vous pourrez opter pour un tableau 2D ou 3D, sélectionner l’un des cinq 

niveaux de difficulté présents. 

Le listing comporte deux programmes qu’il faut taper et sauver à la suite. 


LISTING N° 1 


140 MODE 1 : BORDER 7: INK 0,7:1NK 1,7:1NK 

2,7:1NK 3,7 

150 SYMBOL AFTER 220 

160 SYMBOL 240,0,0,7,31,127,255,255,255 
170 SYMBOL 241,0,0,224,240,254,255,255,2 
55 

180 SYMBOL 243,255,127,191,207,112,63,31 

,0 

190 SYMBOL 244,255,254,253,243,14,252,24 

0,0 

200 SYMBOL 242,0,0,0,0,0,0,0,0 

210 SYMBOL 245,0,0,0,0,0,0,0,0 

220 SYMBOL 221,1,1,3,3,7,7,15,15 

230 SYMBOL 222,31,31,63,63,127,127,255,2 

55: SYMBOL 223,120,128,192,192,224,224,24 

0,240: SYMBOL 224,248,248,252,252,254,254 

,255,255 

240 WINDOW #1,9,32,4, 19: PEN 2:AAA*=" " 

250 H0=9: HA =2': BÜ—33: FOR 1 = 1 TO 16 STEP 2 
:HA=HA+2:HÜ=HO-l:LOCATE HO,HA:PRINT CHR$ 
(221);AAA$; :LOCATE HO,HA+1 : PR INT CHR*<22 

2) ;AAÀ*;:LOCATE BO,HA:PRINT AAA$;CHR*(22 

3) ; :LOCATE BO,HA+1 : PRINT AAA*;CHR*(224); 

: AÀA$=AAA$+CHR$ (143) : NEXT I 

260 PAPER #1,2:CLS #1 

270 POH=143:P0V=383:P02H=496 

280 FOR 1=1 TO 9 

290 POH=POH~16:P0V=P0V~32:P02H=P02H+16 

300 PL OT POH,POV,3: DRAW P02H,PGV: NE X T I 

310 P OH=--79: PO2H=80 

320 FOR 1=1 TO 9 

330 POH=POH+80:P02H=P02H+48 


340 IF 1=1 THEN 360 

350 PLOT POH,93:DRAW P02H,351 

360 NEXT I 

370 PLOT 1,96:DRAW 127,351 
380 FOR 1=92 TO 80 STEP -1:PL.0T 1, I : DRAW 
640, I :NEXT 

390 PRINT CHR$(22)+CHR*(1): 

400 A$=CHR$(240)+CHR$(241)+CHR$(242):B$= 
CHR$(243)+CHR*(244)+CHR*(245) 

410 PEN 1 :LOCATE 18,10:PRINT A$:LOCATE 1 

8.11 : PRINT B$; 

420 PEN 3:LOCATE 22,10:PRINT A$:LOCATE 2 

2.11 : PR INT B$; 

430 PEN 3:LOCATE 18,12:PRINT A$:LOCATE 1 
8,13:PR INT B$; 

440 PEN 1:LOCATE 22,12:PRINT A*:LOCATE 2 
2,13:PRINT B$; 

450 PRINT CHR*(22)+CHR*(0); 

460 PEN 1:LOCATE 12,1:PRINT "%%% 3D.0THE 
LLO %%%"'. LOCATE 12,2:PRINT "- 

470 PEN’3:LOCATE 10,22:PRINT "Chargement 
en cours.LOCATE 10,23:PRINT "- 

__________ M • 

480 LOCATE 5,25:PRINT CHR$(164);"1987. A 
uteur : Didier DRUGMANNE"; 

490 INK 1,20:INK 2,9:INK 3,0 
500 RUN"! 


„QT 1,1:DRAW 

-IR$ (242) : B$= 
) 

A*:LOCATE 1 
A*:LOCATE 2 
A»:LOCATE 1 
A$:LOCATE 2 

"*** 3D.0THE 


LISTING N° 2 


10 MODE 1:BORDER 1:INK 0,1:INK 1,24:INK 
3,6:DIM MUS(98):DIM SUM(98):DIM MUN(98) 

11 PEN 3 

12 MODE 0 








13 DATA 119, 127, 119, 106, 119, 134, 142,21:>, 

142,150,142,134,142,159,179,239,179,190, 
179,159;179,190,213,239,106,119,134,142, 

1 i=;q' i ta 939 142 

14 DATA" 119,’ 127,119,106,119,134,142,213, 

142.150.142.134.142.159.179.239.179.190, 
179,159,179,190,213,239,106,119,134,142, 

159.179 

15 DATA 159,142,134,119,106,95,89,95,106 
,119,134,142,159,179,142,150,142,134,159 

, 190, 159, 179, 142,179,106,119,134,142, 159 
,179,0,0,142,0,0,179 

16 RESTORE 13:FOR 1=1 TO 98:READ MUS(I): 

17 X DATA 358,358,358,358,358,358,358,426, 

426.426.426.426.426.426.426.478.478.478, 

478.478.478.478.478.478.478.478.478.478, 

379.358.358.358 

18 DATA 358,358,358,358,358,358,358,426, 
426,426, 426,426, 426, 426,426,478, 478, 478, 

478.478.478.478.478.478.478.478.478.478, 

379.358 

19 DATA 478,478,478,478,478,478,358,358, 
358,358,358,358,358,358,478,478,478,319, 

379.319.379.358.478.358.478.478.478.478, 
478,358,0,0,478,0,0,358 

20 RESTORË 17:FOR 1=1‘TO 98:READ SUM<I>: 
NEXT I 

21 DATA 179,119,142,179,119,142,213,213, 
142,179,213,142,179,213,239,239,159,179, 
239, 159,179,239, 239,190,179,239 ,.190,159, 

179.119.179 

22 DATA'179,179,119,142,179,119,142,213, 
213,142,179,213,142,179,213,239,239,159, 

179.239.159.179.239.239.190.179.239.190, 

159.119.179 

23 DATA 239,213,190,159,179,159,142,159, 
179,190,213,239,268,142,119,142,119,127, 
119,106,119,134,119,142,89,95,106,119,13 
4,142,0,0,119,0,0,142 

24 RESTORË 21:FOR 1=1 TO 98:READ MUN(I): 
NEXT I 

25 EI :EVERY 10 GOSUB 49 

26 PEN 1 


27 FOR 1=4 TO 16 

28 LOCATE i,9:PRINT "#":LOCATE i,15:PRIN 
T "#":NEXT i 

29 FOR 1=9 TO 15 

30 LOCATE 16,i:PRINT "*":NEXT i 

31 LETT$="OTHELLO":R=13:V=8 

32 FOR 1=1 TO 7:R=R~1:V=V-1 

33 IF 1=1 THEN PEN 3 

34 IF 1=2 THEN PEN 1 

35 IF 1=7 THEN PEN 3 

36 FOR J=1 TO R:B$=MID*<LETT$,V,1) 

37 LOCATE J,12:PRINT B*:FOR K=1 TO 100:N 
EXT K:LOCATÈ J,12:PRINT " " 

38 NEXT J:LOCATE J,12:PRINT B* 

39 NEXT I 

40 PEN 1 : FOR 1=9 TO 15:LOCATE 4,1:PRINT 
"#":NEXT I : FOR J = 1 TO 300:NEXT J 

41 FOR 1 = 1 TO 3:LOCATE 7,12:PRINT - ": LO 
CATE 13,12:PRINT " ": FOR J = 1 TO 300:NEXT 

J:PEN 3:LOCATE 7,12:PRINT "O":LOCATE 13 
,12:PRINT "O": FOR J = 1 TO 300:NEXT J:NEXT 
' I 

42 R=7:PEN 3:FOR 1=2 TO 7:R=R+1 

43 FOR J = 1 TO 400: NEXT J-.LOCATE R,12:PRI 
NT MI D$(LETT$,1,1) 

44 NEXT I 

45 FOR 1=1 TO 200:NEXT I 

46 FOR 1=1 TO 750:INK 1,24,6:INK 3,6,24: 
NEXT I 

47 INK 1,24:INK 3,6 

48 DI:GOtO 55 

49 SDF=SDF+1:SOUND 1,MUS(SDF),20,6 

50 SOUND 2,SUM(SDF),20,6 


51 SOUND 4,MUN(SDF),20,6 

52 IF SDF=98 THEN 54 

53 RETURN 

54 DI : INK 1,24:1NK 3,6 

55 CLEAR 

56 INK 1,24:1NK 3,6:MODE 1 :PEN 3:LOCATE 

12,1:PRINT "*** OTHELLO ***" :LOCATE 12,2 
: PRINT " 11 

57 PEN 1TLÔCÂTË"I75TPRINT "OTHELLO SE JO 
UE SUR UN DAMIER DE 8 CASESSUR 8 CASES. 
APRES AVOIR CHOISI LA COU- LEUR DE SES P 
IONS, CHACUN POSE, A TOUR DE ROLE, UN S 
EUL PION SUR LE PLATEAU DE FAÇON A ENTOU 
RER LJN OU PLUSIEURS PIONS" 

58 LOCATE 1,10:PRINT "ADVERSES. CES PION 
S PRENNENT ALORS LA COULEUR DU PION PO 
SE "■:LOCATE 1,13:PRINT "LE GAGNANT EST 
CELUI OUI POSSÈDE LE PLUSDE PIONS DE SA 
COULEUR A LA FIN DE LA PARTIE." 

59 DATA 21,21,9,24,31,18, 1,^1, ■-•4,^4, 7, 18 

,40,24,26,24,14,18,40,19,14,^4,^6,18,4,^ 
4,37,20,17,21,31,24,11,18,37,24,4,18,£0, 
24,31,21,17,18,1,24,26,21,9,21,40^^1^^9, 
r>4 i 18,23,24,37,22,4,21,20, 18, , ^4, io, 1 

S,37,18,14,21,22,24,40,18,17,23,2,18,31, 

60 f DATA * 9?23^39,18,14,19,1,23,31,20,20^2 

22 :ü: 2 S;?9;?i;2:èi:55:t§: 

0,1,22)31,19,9,22,37,23,3,18,26,19,15,21 
,32,24,2,24,38,18,8,18,26,22,40,22,1,20, 
40,20,i6,21,38,24,4,19,20,22,17,24,20,19 
4 23 31 22 

61 * DATA 9,20,17,20,37,21,14,23,27,24,20, 
21,10,18,26,20,21,24,17,22,21,18 

62 INK 2,19:PEN 2 

63 RESTORE 59 

65 READ 1 aJB:LOCATE A,B:PRINT CHR*(231>; 

66 FOR J=1 TO 200:NEXT J 

67 NEXT I 

68 FOR J=1 TO 500:NEXT J 

69 INK 2,19,4:FOR J=1 TO 4000:NEXT J 

70 MODE i:BORDER 1:INK 0,1:INK 1,24:INK 

71 6 PEN 3:LOCATE 12,1:PRINT "*** OTHELLO 
***";:LOCATE 12,2:PRINT "_ 

I* • 

72 PEN 1:LOCATE 3,7:PRINT "(1) - 

DEBUTANT";:LOCATE 3,9:PRINT "(2) - 

APPRENTI";:LOCATE 3,11 SPRINT "<3> - 

- MOYEN"; rnrT11 

73 LOCATE 3, 13: PRINT "(4) - 

::LOCATE 3,15:PRINT "(5) - EXPERI 

MENTE";:LOCATE 3,17:PRINT "(6) - 

74^PEN 1 3:LOCATE 8.22.PRINT "CHOISISSEZ V 
OTRE NIVEAU"; :LOCATE 8,23:PRINT "- 


75 D*=INKEY*sIF D*="" THEN 75 

76 IF D*<"1" OR D*>"6" THEN 75 

77 PRINT CHR$(7): BORDER 7:INK 0,7:NIV-VA 
L(D*) 

78 PEN 1:LOCATE 33,22:PRINT NIV; 

79 DIM a$(100): DIM e(89):DIM kk<100) 

80 pion=4 

81 COL*=CHR*(22)+CHR*(1) 

82 PRINT COL$; 

83 COL1$=CHR$(22)+CHR$(0) 

84 kk(45)=2:kk(46)=2:kk(55)=2:kk(56)-2 

85 DIM b (8): DIM c: (30): DIM td(78):DIM ch ( 
78) 

86 w=l:sk=0:pl=0:lp-0 

87 b*="x " : c*="*" 

88 INK 1,20:INK 2,9:INK 3,0:INK 4,7 

89 SYMBOL AFTER 220 „ OBfBr 

90 SYMBOL 250,0,3, 15,63,6^., 1*7, 127, 


43 











91 SYMBOL 251,0,192,240,252,252,254,254, 

ZtJ J 

92 SYMBOL 252,255,127,127,63,63,15,3,0 

93 SYMBOL 253,255,254,254,252,252,240,19 

94 SYMBOL 234,0,0,0,1,7,15,15,15 

95 SYMBOL 235,0,0,126,255,255,255,255,25 
5 

96 SYMBOL 236,0,0,0,128,224,240,240,240 

97 SYMBOL 237, 15, 7, 11 ,’l2,7,3, 1,0 

98 SYMBOL 238,255,255,255,255,0,255,255, 

0 

99 SYMBOL 239,240,224,208,48,224,192,128 
,0 

100 SYMBOL 240,0,0,7,31,127,255,255,255 

101 SYMBOL 241,0,0,224,248,254,255,255, 2 

uu 

102 SYMBOL 243,255,127,191,207,112,63,31 
,0 

103 SYMBOL 244,255,254,253,243,14,252,24 
8,0 

104 SYMBOL 242,0,0,0,0,0,0,0,0 

105 SYMBOL 245,0,0,0,0,0,0,0,0 

106 SYMBOL 221 ; 1,1,3,3,7,7,15,15 

107 SYMBOL 222,3'1,31,63,63, 127, 127,255,2 
55:SYMBOL 223,128,128,192,192,224,224,24 
0,240:SYMBOL 224,248,248,252,252,254,254 
, 255,255 

108 DATA 4,4,4,4,4,4,4,4,4,4 

109 DATA 4,20,10,10,10,10,i0,10,20,4 

110 DATA 4, 10, 10, 10, 10, 10, 10‘, 10, 10,4 

111 DATA 4,10,10,10,10,10,10,10,10,4 

112 DATA 4,10,10,10,x,*,10,10,10,4 

113 DATA 4,10,10,10,*,x,10,10,10,4 

114 DATA 4, 10, 10, 10, 10, 10, '10, 10, 10,4 

115 DATA 4,10,10,10,10,10,10,10,10,4 

116 DATA 4,20,10,10,10,10,10,10,20,4 

117 DATA 4,4,4,4,4,4,4,4,4,4 

118 DATA 4,4,4,4,4,4,4,4,4,4 

119 DATA 4,60,20,30,30,30,30,20,60,4 

120 DATA 4,20,20,22,22,22,22,20,20,4 

121 DATA 4,30,22,22,22,22,22,22;30,4 

122 DATA 4,30,22,22, x , *, 22,22, 30,4 

123 DATA 4,30,22,22, 22, 22, 30, 4 

124 DATA 4,30,22', 22,22,22, 22, 22,30,4 

125 DATA 4,20,20,22,22,22,22,20,20,4 

126 DATA 4,60,20,30,30,30,30,20,60,4 

127 DATA 4,4,4,4,4,4,4,4,4,4 

128 DATA 4,4,4,4,4,4,4,4,4,4 

129 DATA 4,60,15,30,30,30,30,15,60,4 

130 DATA 4,15,10,22,22,22,22,10,15,4 

131 DATA 4,30,22,25,24,24,25,22,30,4 

132 DATA 4,30,22,24.x,*,24,22,30,4 

133 DATA 4,30,22,24,*,x,24,22,30,4 

134 DATA 4,30,22,25,24,24,25,22,30,4 

135 DATA 4,15,10,22,22,22,22,10,15,4 

136 DATA 4,60,15,30,30,30,30,15,60,4 

137 DATA 4,4,4,4,4,4,4,4,4,4 

138 DATA 1,-1,10,-10,11,-11,9,-9 

139 DATA 119,i27,119,106,119,134,142,213 
,142,150,142,134,142,159,179,239,179,190 
,179,159,179,190,213,239,106,119,134,142 
,159,179 

140 DATA 9,12,15,18,21,25,28,31,0 

141 DATA 0,8, 11,'15,'18,22,25,28,31,0 

142 DATA 0,7,11,14,18,22,25,29,32,0 

143 DATA 0,6, 10. 14, 18', 22,26,29,33,0 

144 DATA 0,6, 10, 14, 18,22, 26,30, 34; 0 
1 45 DATA 0 , 5,9, 1 3, J. 8,22,26,30 , 35 , 0 

146 DATA 0,4,9,13.18,22,27,31,36,0 

147 DATA 0,3,8,13,18,22,27,31,36' 

148 DATA 240,240,234,234,234,240,240,240 

j ® 

149 DATA 0,234,234,240,240,240,240,234,2 

34,0 

150 DATA 0,234,240,234,240,240,234,240,2 


34,0 

151 DATA 0,234,234,234,240,240,240,234,2 
34,0 

152 DATA 0,240,240,240,240,240,240,240,2 
34,0 

153 DATA 0,240,234,234,240,240,234,234,2 
40,0 

154 DATA 0,240,240,234,240,240,240,240,2 
40,0 

155 DATA 0,234,234,240,240,240,240,234,2 
34 

156 IF NIV=1 OR NI V=2 THEN RESTORE 108 

157 IF NI V=3 OR NIV=4 THEN RESTORE 118 

158 IF NIV=5 OR NIV=6 THEN RESTORE 128 

159 FOR 1=1 TO 100 

160 READ a$(i) 

161 NEXT i 

162 RESTORE 138:FOR i = l TO 8 

163 READ b(i) 

164 NEXT i 

165 FOR i=l TO 30 

166 READ c(i ) 

167 NEXT i 

168 FOR i=l TO 78 

169 READ td(i ) 

170 NEXT i 

171 FOR i=1 TO 78 

172 READ ch(i) 

173 NEXT i 

174 MODE 1 

175 cmpt=0 

176 CLS 

177 PEN 2:LOCATE 12,2:PRINT "*** OTHELLO 


#**" ; : LOCATE 12,3.7prÎnt' 


178 PEN 3:LOCATE 3,11:PRINT "1) Plateau 
3 dimensions" 

179 LOCATE 3,15:PRINT "2) Plateau 2 dim 
ensi ons" 

180 v*=INKEY*:IF v*="" THEN 180 

181 PRINT CHR$(7) 

182 IF v*="l" THEN z 2 = 1 : c:c = 1 : CLS : GOTO 43 
6 

183 IF v*="2" THEN zz=0:CLS:GOTO 485 

184 GOTO 180 

185 INK 2,7:INK 3,7:WIND0W #1,1,25,1,25: 
PAPFR #1 6. ri 8 ttl 

186 FOR I=400^ TO 394 STEP ~1:PLQT 1,I : DR 
AW 400, 1,4:PLOT 1,1 : DRAW 1,400:NEXT I 

187 FOR 1 = 1 TO 6:PLOT 1, I : DRAW 400,1,4:P 
LOT 1,1:DRAW 1,400:NEXT I 

188 FOR i=8 TO 392 STEP 48 

189 PLOT i,8:DRAW i,390,3 

190 NEXT i 

191 FOR i=8 TO 392 STEP 48 

192 PLOT 8,i:DRAW 392 ,1 

193 NEXT i' 

194 INK 2,9:INK 3,0 

195 PEN 2:LOCATE 29,2:PRINT "* OTHELLO * 

II 

196 LOCATE 29,3:PRINT "_" 

197 IF co= 1 THEN k$="* l, :n$= (l x" 

198 IF co=2 THEN k*="x":n*="*" 

199 IF c 0 =1 THEN PEN 3 

200 IF co=2 THEN PEN 1 

201 PRINT col 1$; :LOCATE 30,5:PRINT "VOUS 
AVEZ" 

202 IF c 0 =1 THEN LOCATE 30,7:PRINT "LES 
NOIRS "; 

203 IF co=2 THEN LOCATE 30,7:PRINT "LES 
BLANCS"■ 

204 IF ii=l THEN GOSUB 321:GOTO 283 

205 IF c 0 =1 THEN 234 

206 b$=k$:c$=n$:q=0:vb=0:tt=0 

207 IF zz = 1 THEN 211 

208 FOR i=20 TO 24 

209 LOCATE 29,i:PRINT SPC(12) 








210 NEXT i 

N a*(w)=c*:kk(w)=2:GOSUB 321 

211 IF co=l THEN PEN 1 

267 IF tt=l THEN 269 

212 IF co=2 THEN PEN 3 

268 IF t=l AND q=l AND -fg=l AND zz = l THE 

213 IF 22 = 1 THEN LOCATE 4,24:PR INT "JE R 

N a*(w)=c*:kk(w)=2:tt=l:GOSUB 437 

EFLECHIS" 

269 IF t=l AND zz=0 THEN vb=l: a*<w+s)=c* 

214 IF 22=0 THEN LOCATE 29,12:PRINT "JE 

:k k(w+s)=2:GOSUB 321 

REFLECHIS" 

270 IF t = l AND zz = 1 THEN vb=l:a$(w+s)=c$ 

215 IF 22=0 THEN LOCATE 32,14:PRINT "* * 

:k k(w+s)=2:GOSUB 437 

*" 

271 NEXT g 

216 sk=sk+l:bn=0 

272 IF m=l AND r >0 THEN t = l : rn=0: r=0: s=0: 

217 cmpt=cmpt+l 

GOTO 261 

218 IF cmpt=l AND cd=2 THEN 589 

273 NEXT i 

219 IF cmpt<3 THEN ccc=34:ppp=67: GOTO 22 

274 IF vb=0 AND q=l THEN GOTO 283 

1 

275 IF vb=1 AND q=l AND zz=0 THEN a*(w)= 

220 ccc=12:ppp=89 

c*: kk (w) =2: GQSUE< 321 

221 FOR i=ccc TO ppp 

276 IF tt=l THEN 278 

222 IF cmpt >=3 THEN 225 

277 IF vb=l AND q=l AND zz=l THEN a*(w)= 

223 cmpt*=STR*(i) 

c*:kk(w)=2:tt=l:GOSUB 437 

224 IF VAL(RIGHT*(cmpt*, 1)><4 OR VAL(RIG 

278 IF a* <w)=c* THEN pion=pion+l 

HT*(cmpt*,1))>7 THEN 24i 

279 IF pion=64 THEN 348 

225 IF a*(i)=b* OR a*(i)=c* OR a*(i)="4" 

280 IF q=1 THEN 206 

THEN 241 

281 IF cmpt=l OR cmpt=2 THEN 283 

226 FOR -f = 1 TO 8 

282 GOTO 414 

227 r=0:s=0:m=0 

283 IF zz=0 THEN LOCATE 31,12:PRINT " 

228 FOR g=l TO 8 

":LOCATE 34,14:PRINT " 

229 s=s+b ( -f ) 

284 GOSUB 410 

230 IF a*(i+s)=c* THEN m=l:GOTO 234 

285 IF co=1 THEN PEN 3 

231 IF a*(i+s> <>b* THEN 234 

286 IF co=2 THEN PEN 1 

232 r=r+1 

287 IF z z =0 THEN LOCATE 31,12:PRINT " A 

233 NEXT g 

VOUS ":LOCATE 34,14:PRINT " 

234 IF m=1 AND r>0 THEN bn=l:lp=0 

288 IF z z = 1 THEN LOCATE 4,24:PRINT SPC<1 

235 IF niv=l OR niv=3 OR niv=5 THEN 237 

5):LOCATE 4,24:PRINT " A VOUS " 

236 IF m=l AND r>0 AND sk<19 THEN e(i)=e 

289 v*=INKEY*:IF v*="" THEN 289 

( i ) --r s GOTO 238 

290 IF UPPER*(v*)="V" THEN CLS:RUN 

237 IF m=l AND r>0 THEN e(i)=e(i)+r 

291 IF UPPER*(v*)="Z" OR UPPER*(v*>="S" 

238 NEXT f 

OR UPPER*(v*)="X" THEN g*=UPPER*(v*):GOT 

239 IF e(i)< >0 THEN e(i)=e<i>+VAL(a*(i)> 

0 302 

240 IF e < i ) >e ( w ) THEN w=i 

292 IF UPPER*(v*)<"A" OR UPPER*(v*>>"H" 

241 NEXT i 

THEN 289 

242 IF co=l THEN PEN 1 

293 PRINT CHR*(7) 

243 IF co=2 THEN PEN 3 

294 cl*=v*:IF zz=0 THEN LOCATE 34,14:PRI 

244 IF bn=0 THEN pl=l:IF zz=0 THEN LOCAT 

NT UPPER*(cl*) 

E 29,12:PRINT " JE PASSE LOCATE 32,1 

295 IF z z = 1 THEN LOCATE 12,24:PRINT UPPE 

4i PR INT " ".-SOUND 1,956, 100,7: FOR y= 

R*(cl*) 

1 TO 2000: NEXT y:LOCATE 29,12:PRINT " 

296 v*=INKEY*:IF v*="" THEN 296 

"; : IF lp = l THEN 348 ELSE 278 

297 IF v*<"l" OR v*>"8" THEN 287 

245 IF bn=0 THEN pl=l:IF zz=l THEN LOCAT 

298 PRINT CHR*(7) 

E 4,24:PRINT " JE PASSE ":SOUND 1,956 

299 c2*=v*:IF zz=0 THEN LOCATE 35,14:PRI 

,100,7:FOR y=1 TO 2000:NEXT y:IF lp=l TH 

NT UPPER*(c2*) 

ÈN 348 ELSE 278 

300 IF z z = 1 THEN LOCATE 13,24:PRINT UPPE 

246 GOSUB 336 

R*(c2*) 

247 IF zz =0 THEN LOCATE 29,12:PR INT " 

301 g*=cl*+c2* 

11 • 

302 ii=0:pc=0 

248 IF 22=0 THEN LOCATE 32,14:PRINT " 

303 IF g*="S" AND zz=0 THEN GOTO 392 

II 

249 IF co=l THEN PEN 1 

304 IF g*="S" AND zz=l AND hh=l THEN 287 

250 IF co=2 THEN PEN 3 

305 IF z z = 1 AND g*="S" THEN 529 

251 IF z z =0 THEN LOCATE 31,12:PRINT "JE 

306 IF z z = 1 AND g*="Z" THEN ii = l:hh=0:zz 

JOUE":LOCATE 34,14:PRINT y*;x*: SOUND 1,6 

=0:CLS:GOTO 185 

0, 100,4 

307 IF z z =0 AND g*="Z" THEN zz = l:rg=0:CL 

252 IF z z = 1 THEN LOCATE 4,24:PRINT " JE 

S:GOTO 548 

JOUE ":LOCATE 14,24:PRINT y*;x*:SOUND 1 

308 IF g*="X" AND zz=0 AND rg=l THEN GOS 

,60,100,4 

ÜB 399:GOTO 572 

253 a*(w)=c*:kk(w)=2 

309 IF g*="X" AND zz=0 AND rg=0 THEN 572 

254 IF z z =0 THEN GOSUB 321 

310 IF g*="X" AND zz=l AND hh=l THEN GOS 

255 IF z z = 1 THEN GOSUB 437 

UB 539:GOTO 572 

256 FOR i=12 TO 89 

311 IF g*="X" AND zz=l AND hh=0 THEN 572 

257 e(i)=0 

312 GOSUB 343 

258 NEXT i 

313 fg=l 

259 FOR f=1 TO 8 

314 IF w<12 OR w>89 THEN 283 

260 s=0:m=0:t=0:r=0:pl=0 

315 IF a*(w)=b* OR a*(w)=c* THEN 283 

261 FOR g=1 TO 8 

316 vb=0 

262 s=s+b(f) 

317 b*=n*:c*=k*:q=l 

263 IF a*(w+s)=c* THEN m=l:GOTQ 272 

318 IF rg=1 THEN GOSUB 399 

264 IF a$(w+5)Ob* THEN 272 

319 IF hh=l THEN GOSUB 539 

265 r=r+l 

320 GOTO 259 

266 IF t=l AND q=l AND fg=l AND zz=0 THE 

321 1=9 





322 FOR y=2 TO 23 STEP 3 

323 1=1+2 

324 FOR k=2 TO 23 STEP 3 

325 1=1+1 

326 IF ii=1 THEN 328 

327 IF kk <1)< >2 THEN 331 

328 LOCATE x,y:PRINT COL*;! IF a*(l)="x" 
THEN PEN 1 SPRINT CHR*(250);CHR*(251):LOC 
ATE x,y+lSPRINT CHR*(252);CHR*(253) 

329 LOCATE x,ysIF a*(l)="*" THEN PEN 3s P 
RINT CHR*(250);CHR*(251):LOCATE x,y+l:PR 
INT CHR*(252);CHR*(253) 

330 kk(1)=4 

331 NEXT x 

332 NEXT y 

333 PR INT COL.1*; 

334 -f g=0 

335 RETURN 

336 w*=STR*(w) 

337 x*=MID*(w*,2,1) 

338 FOR i=2 TO 9 

339 IF RIGHT*(w*,1)=CHR*(48+i) THEN 341 

340 NEXT i 

341 y*=CHR* <63+i) 

342 RETURN 

343 cl*=UPPER*(cl*> 

344 xxx =ASC(cl*)—63 

345 z*=c2*+STR*<xxx) 

346 w=VAL(2*) 

347 RETURN 

348 m=0:f=0 

349 IF 22=1 THEN 354 

350 FOR i=8 TO 24 

351 LOCATE 28,is PRINT SPC(13) 

352 NEXT i 

353 GOTO 357 

354 FOR i=21 TO 25 

355 LOCATE 22,1 s PRINT SPC(18) 

356 NEXT i 

357 FOR i=12 TO 89 

358 IF a*(i)="*" THEN m=m+l 

359 IF a* ( i > = "x " THEN f=-f + l 

360 NEXT i 

361 IF 22=0 THEN PEN 3sL0CATE 30,12:PRIN 
T "NOIRS= ";ms LOCATE 30,14sPEN 1sPRINT " 
BLANCS=" ; -f 

362 IF 22 = 1 THEN PEN 3sLOCATE 4,22s PRINT 
"NOIRS* "smsPEN 1 sLOCATE 4,24 s PRINT "BL 

ANCS= " s -f s " 

363 PEN 3 

364 IF 2 2=0 AND co=l AND m>-f THEN LOCATE 
30,17s PRINT "J'AI PERDU" 

365 IF 22=1 AND co=l AND m>f THEN LOCATE 

29,22 s PRINT "J'AI PERDU" 

366 IF 22=0 AND co=2 AND -f>m THEN LOCATE 
30,17 s PRINT "J'AI PERDU" 

367 IF 22=1 AND co=2 AND i >m THEN LOCATE 

29,22 s PRINT "J'AI PERDU" 

368 IF 22=0 AND co=l AND i >m THEN LOCATE 
30,17s PRINT "J'AI GAGNE" 

369 IF 22=1 AND co=l AND i >m THEN LOCATE 

29,22 s PRINT "J'AI GAGNE" 

370 IF 22=0 AND co=2 AND m>f THEN LOCATE 
30,17s PRINT "J'AI GAGNE" 

371 IF 22 = 1 AND co=2 AND m>-f THEN LOCATE 

29,22 s PRINT "J'AI GAGNE" 

372' IF 2 2=0 AND m=-f THEN LOCATE 31,17s PR 
INT "EGALITE" 

373 IF 22=1 AND m=f THEN LOCATE 29,22:PR 

T MT 'T-P.AI T TF" 


374 PEN 

1 







375 IF 

Z Z 

= 0 

THEN 

LOCATE 

30,20: 

PRINT 

"UNE 

AUTRE 

O »' 







376 IF 

Z Z 

= 1 

THEN 

LOCATE 

29,24: 

PR I NT 

"UNE 

AUTRE 

9 h 







377 IF 

Z Z 

=0 

THEN 

LOCATE 

33,22: 

PRINT 

" (0/ 


N) 


378 IF 22=1 THEN LOCATE 32,25ïPRINT "(0/ 
N) " 

379 SOUND 2,358,145,7 

380 SOUND 2,426,155,7 

381 SOUND 2,478,260,7 

382 SOUND 2,379,23,7 

383 SOUND 2,358,23,7 

384 FOR i=1 TO 30 

385 SOUND 1,c(i),20,7 

386 NEXT i 

387 SOUND 1,179,8,7 

388 v*=INKEV*sIF v*="" THEN 388 

389 IF v*="o" OR v*="0" THEN CLSsRUN 70 

390 IF v*="r." OR v*="N" THEN CLSsRUN 

391 GOTO 388 

392 RG=1 

393 PEN 3 

394 RR=0sTAG:FOR 1=372 TO 36 STEP -48 

395 RR=RR+1:MOVE 400,I:PRINT RRs:NEXT Is 
TAGOFF 

396 RR=64:PEN 1 

397 TAG:FOR 1=26 TO 402 STEP 48:RR=RR+1: 
MOVE 1,398sPRINT CHR*(RR); :NEXT I :TAGOFF 

398 GOTO 283 

399 LOCATE 2,1sPRINT COL1*;sPRINT SPC(24 
) 

400 FOR 1=384 TO 391:PLOT 10,1:DRAW 392, 
1,2:NEXT I 

401 PLOT 8,392:DRAW 392,392,3 

402 FOR i=8 TO 392 STEP 48 

403 PLOT i,8:DRAW i,390,3 

404 NEXT i 

405 FOR i=2 TO 24 

406 LOCATE 27,1sPRINT " " 

407 NEXT i 

408 rg=0 

409 RETURN 

410 IF co=l THEN PEN 3 

411 IF co=2 THEN PEN 1 

412 IF ?.2=0 THEN LOCATE 29,21 sPRINT "FIN 
.PAR : V"s :LOCATE 29,22:PRINT "LET&CHI s 

S"LOCATE 29,23:PRINT "PLAT.3D s Z";:L 
OCATE 29,24:PRINT "CH.COUL : X"; 

413 RETURN 

414 b*=n*:c*=k* 

415 FOR i=12 TO 89 

416 IF a*(i>="*" OR a*(i)="x" OR a*(i)=" 
4" THEN 427 

417 FOR i -1 TO 8 

418 r=0:s=0:pt=0 

419 FOR g=1 TO 8 

420 s=s+b (f) 

421 IF a*(i+s)=c* THEN pt=l:GOTO 425 

422 IF a*(i+s)Ob$ THEN 425 

423 r=r+1 

424 NEXT g 

425 IF pt=l AND r>0 THEN pl=0:GOTO 283 

426 NEXT -f 

427 NEXT i 

428 lp=l 

429 IF co=1 THEN PEN 3 

430 IF co=2 THEN PEN 1 

431 IF 22=0 THEN LOCATE 29,12îPRINT " 

":LOCATE 34,14s PRINT " 

432 IF 22=0 THEN LOCATE 29,13:PRINT "VOU 
S PASSEZ": SOUND 1,956,200,7 s FOR j = l TO 2 
000:NEXT j:LOCATE 29,13:PRINT " 

II 

433 IF 22=1 THEN LOCATE 4,24sPRINT "VOUS 
PASSEZ "s SOUND 1,956,200,7:FOR j = l TO 2 

000:NEXT j:LOCATE 4,24:PRINT " 

II 

434 IF pl=l THEN 348 

435 GOTO 206 

436 IF c c =1 THEN GOSUB 457 

437 yy=2:rr=0:df = 11 :PRINT col$s 
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438 FOR aa=l TO 8 

439 yy=yy+2 

440 FOR bb = l TO 10 

441 rr=rr + l : df =d-f + 1 

442 IF cc —0 AND kk(df><>2 THEN 451 

443 IF cc = l AND a* (d-f ><>"*" AND a*(df)<> 
“x" THEN 451 

444 qw=ch(rr) :>:=td(rr) 

445 IF a$(df) — "x" THEN PEN 1 

446 IF a$(df)="#" THEN PEN 3 

447 LQCATE x,yys PRINT CHR*(qw);CHR*<qw+1 
);CHR$<qw+2); 

448 LOCATE x,yy+l:PRINT CHR*(qw+3);CHR*( 
qw+4);CHR$< qw+5); 

449 kk(df)=4 

450 IF cc=0 THEN 453 

451 NEXT bb 

452 NEXT aa 

453 f g=0 

454 PRINT col 1$; 

455 IF cc — 1 THEN 517 

456 RETURN 

457 ’ 

458 REM dessin 3 d 

459 WINDÙW #1,9,32.4, 19sPEN 2:AAA$="" 

460 INK 3,7:INK 2,7 

461 HQ=9:HA=2:B0=33:FOR 1=1 TO 16 STEP 2 
:HA=HA+2:HÛ=H0-1:LOCATE HO,HA:PRINT CHR* 
(221);AAA$; :LOCATE HO,HA+1:PRINT CHR*(22 

2) ;AAÀ$::LOCATE BO,HA:PRINT AAA*;CHR*<22 

3) ; sLOCATE BO,HA+1:PRINT AAA$;CHR$(224); 
:AAA*=AAA*+CHR*(143):NEXT I 

462 PAPER #1,2:CLS #1 

463 PÜH= 143 : F'0V=383 : P02H=496 

464 FOR 1=1 TO 9 

465 POH=POH—16:F'0V=P0V~32:P02H=P02H+16 

466 PLOT POH,POV,3:DRAW F'02H, POV: NEXT I 

467 POH=—79:PO2H=80 

468 FOR 1=1 TO 9 

469 POH=POH+80:PO2H=PO2H+48 

470 IF 1=1 THEN 472 

471 PLOT POH,93:DRAW P02H,351 

472 NEXT I 

473 PLOT 1,96:DRAW 127,351 

474 FOR 1=92 TO 80 STEP -l:PLOT 1,I : DRAW 
640,I :NEXT 

475 INK 3,0:INK 2,9 

476 RETURN 

477 IF co=l THEN PEN 3 

478 IF co=2 THEN PEN 1 

479 IF co=1 THEN LOCATE 22,22:PRINT "Vou 
s avez les N" 

480 IF co=2 THEN LOCATE 22,22:PRINT "Vou 
s avez les B" 

481 LOCATE 22,23:PRINT "Coordonnées : 
S" 

482 LOCATE 22,24:PRINT "Chang.couleur : 
X" 

483 LOCATE 22,25:PRINT "Autre plateau : 

Z":cc=0 

484 IF co=l THEN 288 ELSE 206 

485 PEN 2 

486 INK 2,7:INK 3,7:WIND0W #1,1,25,1,25: 
PAPER #1,2:CLS #1 

487 FOR 1=400 TO 394 STEP -l:PLOT 1,I : DR 
AW 400,1,4:PLOT 1,1 : DRAW 1,400:NEXT I 

488 FOR 1 = 1 TO 6:PLOT 1,I : DRAW 400,1,4:P 
LOT 1,1:DRAW 1,400:NEXT I 

489 FOR i=8 TO 392 STEP 48 

490 PLOT i,8:DRAW i,390,3 

491 NEXT i 

492 FOR i=8 TO 392 STEP 48 

493 PLOT 3,i:DRAW 392, i 

494 NEXT i 

495 INK 2,9:INK 3,0 

496 BOSUB 321 

497 PEN 2:LOCATE 29,2:PRINT "* OTHELLO * 


498 LOCATE 29,3:PRINT " _" 

499 PEN 2:LOCATE 29,8:PRINT "PRENEZ VOUS 

II 

500 PEN 3:LOCATE 29,10:PRINT " LES NOIRS 

II 

501 PEN 2:LOCATE 34,12:PRINT "OU" 

502 PEN 1:LOCATE 29,14:PRINT "LES BLANCS 

503 PEN 2:LOCATE 34,16:PRINT "***" 

504 PEN 3:LOCATE 30,20:PRINT "(les noirs 

505 LOCATE 30,22:PRINT "commencent)" 

506 b$="x":c$="#" 

507 v$=INKEY$:IF v*="" THEN 507 

508 IF v*="n" OR v*="N" THEN co=l:GOTO 5 
11 

509 IF v*="b" OR v*="B" THEN co=2:G0T0 5 
11 

510 GOTO 507 

511 FOR i=4 TO 24 

512 LOCATE 28,i:PRINT SPC(13) 

513 NEXT i 

514 IF co=l THEN k*="#": n$="-x " 

515 IF co=2 THEN k*="x":n*="*" 

516 GOTO 195 

517 PEN 2:LOCATE 2,23:PRINT "VOULEZ-VOUS 

N 

518 LOCATE 14,23:PEN 3:PRINT "LES NOIRS 

II 

519 LOCATE 24,23:PEN 2:PRINT "OU " 

520 LOCATE 27,23:PEN 1:PRINT "LES BLANCS 

n il 

521 PEN 3:LOCATE 8,25:PRINT "(Les noirs 
commencent...)" 

522 v*=INKEY*:IF v*="" THEN 522 

523 IF v*="n" OR v*="N" THEN co=l:k*="*" 
:n$="x": GOTO 526 

524 IF v*="b" OR v*="B" THEN co=2:k*="x" 
:n$="#": GOTO 526 

525 GOTO 522 

526 LOCATE 2,23:PRINT SPC(38):LOCATE 8,2 
5:PRINT SPC(26) 

527 GOTO 477 

528 GOTO 288 „ ^ 

529 PEN 3:LOCATE 10,2:PRINT "A B C D 
E F G H" 

530 RR=0:X=101:PRINT CHR*(23)+CHR*(1>; 

531 PLOT -2,-2,3:TAG:FOR 1=344 TO 120 ST 
EF' -32 

532 RR=RR+1:X=X~15:MOVE X,I:PRINT RR; 

533 NEXT I : TAGOFF 

534 PRINT CHR*(23)+CHR$(0); 

535 PLOT 11,113,3:PLOT 11,110:PLOT 9,110 
: PLOT 9,108 

536 hh=l 

537 PLOT 1,96:DRAW 127,351,3 

538 GOTO 285 

539 LOCATE 10,2:PRINT SPC(22) 

540 X=101:RR=0:PRINT CHR*(23)+CHR*(1); 

541 TAG:FOR 1=344 TO 120 STEP -32 

542 RR=RR+1:X=X-15:MOVE X,I:PRINT RR; 

543 TAGOFF:PRINT CHR*(23)+CHR*(0); : PLOT 
1,96:DRAW 127,351,3:PRINT CHR$(23)+CHR$( 
1 ); : T AG 

544 NEXT I :TAGOFF 

545 PRINT CHR*(23)+CHR*(0>; : PLOT 11,113, 
2:PLOT 11,110:PLOT 9,110:PLOT 9,108 

546 hh=0 

547 RETURN 

548 GOSUB 458 

549 y y=2: rr=0: d-f = 11 

550 PRINT COL$: 

551 FOR aa=1 TO 8 

552 yy=yy+2 

553 FOR bb=l TO 10 

554 rr=rr + l : df=d-f + 1 

555 IF a$ (d-f ) < >"x " AND a$(df )<>"*" THEN 
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561 

556 qw=ch (rr ) : >:=td <rr > 

557 IF a$ (d-f ) = "k " THEN PEN 1 

558 IF a*(df)="*" THEN PEN 3 

559 LOCATE x, yy: PR INT CHR$ ( qw) ; CHR* ( qw+1 
);CHR$(qw+2) 

560 LOCATE , yy+1 : PRINT CHR$ (qw+3>S CHR$ < 
qw+4);CHR$(qw+5) 

561 NÈXT bb 

562 NEXT aa 

563 PRINT COL 1$; 

564 IF co-l THEN PEN 3 

565 IF co-2 THEN PEN 1 

566 IF CO-1 THEN LOCATE 22,22:PRINT "Vou 
s avez les N" 

567 IF co=2 THEN LOCATE 22,22:PRINT "Vou 

s avez les B" 

568 LOCATE 22,23:PRINT "Coordonnées : 
S" 

569 LOCATE 22,24:PRINT "Chang.couleur : 
X" 

570 LOCATE 22,25:PRINT "Autre plateau : 

Z":cc=0 

571 GOTO 283 

572 IF co—1 THEN co=2:G0T0 574 

573 IF co=2 THEN co=l 

574 IF co= 1 THEN k$="*":n$= ,, x" 

575 IF c:o=2 THEN k*="x " : nS=" *" 


576 IF 22=1 THEN 582 

577 IF c o—1 THEN PEN 3:LOCATE 30,5:PRINT 
"VOUS AVEZ" 

578 IF co=2 THEN PEN 1 :LOCATE 30,5:PRINT 
"VOUS AVEZ" 

579 IF co=l THEN PEN 3:LOCATE 30,7:PRINT 
"LES NOIRS " 

580 IF co=2 THEN PEN 1 :LOCATE 30,7:PRINT 
"LES BLANCS" 

581 GOTO 206 

582 IF co=l THEN PEN 3:LOCATE 22,22:PRIN 
T "Vous avez les N" 

583 IF co=2 THEN PEN 1 :LOCATE 22,22:PRIN 
T "Vous avez les E-i" 

584 LOCATE 22,23:PRINT "Coordonnées : 
S" 

585 LOCATE 22,24:PRINT "Chang.couleur : 
X" 

586 LOCATE 22,25:PRINT "Autre plateau : 

Z":cc=0 

587 GOTO 206 

588 END 

589 tirage=INT <RND*4+1) 

590 IF tirage=l THEN w=57 

591 IF tirage=2 THEN w=35 

592 IF tirage-3 THEN w=44 

593 IF tirage=4 THEN w=66 

594 GOTO 246 



AMSTRAD 


PICADRO 


Picadro est un utilitaire de dessin facile à manier et performant. Le programme 
offre deux écrans de travail, la page de votre création (accessible par les touches 
de fonction) et le tableau de toutes les fonctions de tracé (barre d’espace). 


60 FOR I=&A000 TO &A039:READ A*: POLE I,V 
AL ( " & " +A$ ) : NE.XT I 

70 DATA 21,00,C0,11,00,40,01,FF,3F,LD,B0 
, C9 

80 DATA 21,00,40,11,00,C0,01,FF,3F,ED,B0 
F9 

90 DATA 21,19,D,CD,75,BB,21,2C,A0,7E,FE, 
FF,CG,CD,5À,BB,23,C3,21,A0,46,52,41,4L,4 

3,4E<, 20,44,41,4E ,41,55, 53, F F . 

100 FOR 1 = 1 TO 14:READ R:INK I,R:NEXT 1 
110 DATA 24,26,0 ,3,6,13,18,9,11,2,15,16 
,8,4 

120 INK 15,0,7 
130 ON EF: R OR GOTO 780 
140 ÜN BREAK GOSUB 780 
150 MODE 0:BORDER 0:INK 0,1 
160 MEMORY &3FFF 

170 C-1:X-320:Y-200: R=4:DiA-0.o: GOTO 870 

180 X = X :Y=Y 
190 PLOT X,Y,1 

200 IF JOY(0)=1 THEN GOSUB 820:Y=Y+2:PLO 
T X , Y, C 

210'IF J0Y<0)=2 THEN GOSUB 810:Y=Y-2:PLO 
"i" . X , Y, C 

220' IF JO Y (0) -4 THEN GOSUB 790: X = X--R: PLO 
T X , Y , C 

230’IF JOY(0)—8 THEN GOSUB 800:X=X+R:PLO 
T X , Y , C 


240 IF JOY(0)=5 THEN GOSUB 860:X=X~R:Y=Y 
+2:PLOT X,Y,C 

250 IF JOY(0)-9 THEN GOSUB 850:X-X+R:Y=Y 
+2:PLOT X,Y,C 

260 IF JOY(0)=10 THEN GOSUB 840:X=X+4:Y= 
Y-?; PLÛ T X,Y,C 

270* IF JOY (0) =6 THEN GOSUB 830: X-X--R: Y- 

Y—2:PLOT X,Y,C 

280 IF ST =1 THEN GOTO 330 

290 IF ST=2 THEN GOTO 430 

300 IF ST=3 THEN GOTO 430 

310 IF ST=4 THEN GOTO 520 

320 IF JOY(0)>-16 AND ST«8 THEN GOSUB 14 
50 

330 IF JOY(0)=20 THEN PT=C:GOSUB 790:X=X 
-R 

340 IF JOY(0)=24 THEN PT=C:GOSUB 800:X=X 
+R 

350 IF JOY (0) =16 THEN PT=C:PL.OT X,Y,C 
360 IF JOY(0)=17 THEN PT=C:GOSUB 820:Y=Y 
+2 

370 IF JOY(0)=18 THEN PT=C:GOSUB 810:Y=Y 

380 IF JOY(0)=21 THEN PT=C:GOSUB 860:X=X 
-R:Y=Y+2 

390 IF JOY(0)=25 THEN PT=C:GOSUB 850:X=X 
+R:Y=Y+2 

400 IF JOY(0)=26 THEN PT=C:GOSUB 840:X=X 
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THEN 

THEN 

THEN 


+R:Y-Y-2 4 

410 IF JOY(0)=22 THEN 
-R:Y—Y—2 
420 GOTO 570 
430 IF JOY(0)=16 AND DE 
X,Y,C:XS=X:YS=Y:DE=1 
440 ÏF JOY ( 0 ) = 16 AND DE=1 
ELSE IF JOY(0)=0 AND DE=1 
450 IF JOY(0)=16 AND DE=3 
XS,YS,C:SOUND 1,100,20:DE=4 
460 IF JOY(0)=16 AND DE=4 THEN 
ELSE IF JOY(0)=0 AND DE=4 THEN 
470 GOTO 570 
480 IF JOY(0)=16 
X,Y,C:DE=1:CX=X 
490 ÏF JOY(0)=16 
ELSE IF JOY(0)=0 
500 IF DE=3 THEN 
510 GOTO 570 
520 IF JOY(0)=16 
X,Y,C:DE=1:CX=X 
530 ÏF JOY(0)=16 
ELSE IF JOY(0)=0 
540 IF DE=3 THEN 
GOTO 570 
IF JOY(0)>=16 


PT=C:GOSUB 830:X=X 


0 THEN PT-C:PLOT 


GOTO 440: 
DE=3 

PT=C:DRAW 


GOTO 

DE=0 


460: 


AND DE=0 
CY=Y 
AND DE=1 
AND DE=1 
GOSUB 1 


THEN PT=C:PLOT 


THEN 

THEN 


GOTO 

DE=3 


480: 


70:DE=0 


THEN F'T=C: PLOT 


550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


AND DE=0 
CY=Y 

AND DE=1 THEN GOTO 5: 
AND DE=1 THEN DE=3 
GOSUB 1410:DE=0 

THEN GOSUB 1450 


i0: 


X, Y,C 
X ? Y, C 
X, Y,C 
X,Y,C 
X ? Y, C 
X, Y, C 
X ? Y, C 
X ? Y, C 
X, Y,C 
X,Y,C 
X, Y,C 
X,Y‘,C 
X, Y,C 
X,Y,C 
X Y C 

OR INKEY(47)=0 THEN D 


IF INKEY(15)=0 THEN C=0:PLOT 
IF INKEY(7 )=0 THEN C=1:PLÛT 
IF INKEY(6 )=0 THEN C=2:PL0T 
IF INKEY(5 )=0 THEN 0=3:PLOT 
IF INKEY U4>=0 THEN 0=4: PLOT 
IF INKEY(13)=0 THEN 0=5:PLOT 
IF INKEY(20)=0 THEN 0=6:PLOT 
IF INKEY(3 )=0 THEN 0=9:PLOT 
IF INKEY(4 )=0 THEN 0=8:PLOT 
IF INKEY(11)=0 THEN 0=10:PLOT 
IF INKEY(10)=0 THEN 0=11:PLOT 
IF INKEY(18)=0 THEN 0=12:PLOT 
IF INKEY(79)=0 THEN 0=13:PLOT 
IF INKEY(16)=0 THEN 0=14:PLOT 
IF INKEY(12)=0 THEN 0=7:PLOT 
IF INKEY(58)=0 
E=0:GOSUB 870 
730 IF Y>401 THEN Y=--2 
IF YC--2 THEN Y=402 
IF X >640 THEN X=-R 
IF X<--R THEN X=640 
PLOT X, Y, C:GOTO 200 
MODE 1 :PEN 1 : STOP 
PLOT X,Y,PT :PT=TEST(X-R,Y):RETURN 
PLOT X, Y,PT : PT=TEST(X +R,Y) :RETURN 
PLOT X, Y, PT : PT=TEST ( X , Y : -2) : RETURN 
PLOT X, Y,PT :PT=TEST(X,Y+2) :RETURN 
PLOT X,Y,PT :PT=TEST(X-R,Y-2):RETURN 
PLOT X,Y,PT:PT=TEST(X+R,Y-2):RETURN 
PLOT X,Y,PT:PT=TEST(X+R,Y+2):RETURN 
PLOT X,Y,PT:PT=TEST(X-R,Y+2):RETURN 
REM ** EDITEUR ** 


740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 


CALL &A000 : MODE: 
CLS:LOCATE 13,1 


1 

PRINT"** EDITEUR **" 
1,3SPRINT" 1: DESSINE UN CON 


1 


PRINT" 


LOCATE 
TOUR" 

910 LOCATE 
NT" 

920 LOCATE 1,7:PRINT"_ 3: TRAüE UN OERCL 
E " 

930 LOCATE 1,9:PRINT" 4: TRACE UN DISQU 
E " 

940 LOCATE 1,11:PRINT" 

S IN" 

950 LOCATE 
DESSIN" 

960 LOCATE 
SIN" 

970 LOCATE 
URFACE" 

980 LOCATE 


TRACE UN SEGME 


EFFACE LE DES 


1,13:PRINT" 6 : SAUVEGARDE UN 


1,15:PRINT" 


CHARGE LJN DES 


1,17:PRINT"_ 3: REMPLIE UNE S 
1,19:PRINT" 9: COULEUR FOND" 


990 LOCATE 1,21:PRINT"_ 0: COULEUR CADRE 

1000 LOCATE 30,5: PRINT"_C: COULEUR" 

1001 LOCATE 30,3: PRINT"_N:NOTICE 1 

1002 LOCATE 30, 7 :PRINT"_M:MODE 
1010 LOCATE 16,23 : PR I NT " PIC APEC) 

1020 LOCATE 18,24:PRINT"PAR" 

1030 LOCATE 13,25:PRINT"FRANCK DANAUS 


1040 

A*- 

=INKEY* 





1050 

IF 

A*< 

Il n 

THEN 

GOTO 1040 



1060 

A*= 

=INKEY* 





1070 

IF 

A*= 

" i" 

THEN 

ST = 1: MODE 

MsCALL 

?<A 0 

0C:GOTO 
1080 IF 

130 

A*= 

"N" 

OR A* 

="n" THEN 

GOTO 1600 

1081 

IF 

A*= 

"M" 

OR À* 

" m " THEN 

GOTO 4000 

1088 

IF 

A*= 

" C " 

OR A* 

= "c" THEN 

GOTO 3000 

1090 

IF 

A*= 

Il O II 

THEN 

ST=2s MODE 

M:CALL 

S/A0 

0C:GOTO 

180 






1100 

IF 

A$= 

n n 

THEN 

ST=3:MODE 

M:CALL 

&A 0 

0C:GOTO 

180 






1110 

IF 

A*= 

11 4 11 

THEN 

ST=4:MODE 

M:CALL 

Z'.m 

0C:GOTO 

180 






1120 

IF 

A*= 

Il C II 
vJ 

THEN 

RUN 



1130 

IF 

A*= 

" 6 " 

THEN 

GOTO 1190 



1140 

IF 

A*= 

Il "J II 

THEN 

GOTO 1280 



1150 

IF 

A*= 

" 8 " 

THEN 

ST= 8 :MODE 

M:CALL 

?<A 0 

0C:GOTO 

180 






1160 

IF 

A*= 

Il Çÿ II 

THEN 

CLS:INPUT* 

'NUMERO 

DE 


LA COULEUR CHOISIE"; N: INK 0,N:GOTO 890 
1170 IF A*="0" THEN CLS:INPUT"NUMERO DE 
LA COULEUR CHOISIE"; N:BORDER N:GOTO 890 

1180 CALL ?<A018: GOTO 1060 

1190 CLS:PRINT"VOULEZ—VOUS SAUVER VOTRE 

DESSIN EN PAGE ECRAN ?(0/N)" 


1191 

A*=INKEY* 




1200 

IF A*< >"" THEN GOTO 

1191 


1210 

A*= INKEY*: IF A*="0‘* 

OR- 

A*= 

"q" THEN 

GOTO 

1240 



"n" THEN 

1220 

A*=INKEY*:IF A*="N" 

OR 

A*= 


GOTO 1260 
1230 GOTO 1210 

1240 CLS:INPUT"NOM DE LA PAGE DE PRESENT 
ATION";N* 

1250 MODE M: CALL &A00C: OPENOUT N*:SAVE"! 
" , B, ?<C000, &3FFF : CLOSEOUT : MODE 1 : GOTO 890 


CLS:INPUT"NOM DU DESSIN A SAUVER:", 

SAVE N*, B, S-.4000, &3FFF : GOTO 890 

CHARGER UNE P 


1281 
OR A*= 


1 o " THEN 


OR A*="n" THEN 


OU 

I 


1260 
N* 

1270 

1280 CLS:PRINT"VOUEEZ—VOUS 
AGE DE- PRESENTATION ?(0/N) 

1281 A*=INKEY* 

IF A*< >"" THEN GOTO 
A*=INKEY*: IF A*="ü" 

1330 

A*=INKEY*:IF A*="N" 

1350 

GOTO 1300 
CLS:INPUT"MODE 0,1 
FOR 1=0 TO 50:NEXT 
LOAD"!" 

GOTO 870 
CLS 

LOAD " " , ?<4000 : GOTO 890 
IF JOY(0)=4 THEN GOSUB 
OT X,Y,C 
1380 IF JOY(0)=8 
OT X Y C 

1390'IF JOY(0)=16 THEN DEG:FOR 1=0 TO 18 
0 STEP DIA:PLOT CX+ABS(X-CX)*COS(I),CY+A 
BS(X-CX)* SIN(I): PLOT CX+ABS(X-CX)*CÔS(I) 

,CY+ABS(X-CX)*-3IN(I):NEXT I:DE=0:GOTO 1 
510 

1400 GOTO 1370 

1410 IF JOY(0)=4 THEN GOSUB 790:X=X-R:PL 


1290 
1300 
GOTO 
1310 
GOTO 
1320 

1330 

1331 

1340 

1341 
1350 
1360 
1370 


M:MODE M 


790:X=X-R:PL 


THEN GOSUB 800:X=X+R:PL 
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QT X , Y, C 

1420'IF JOY(0)=8 THEN 60SUB S00:X=X+R:PL 
OT X Y C 

1430* IF JOY(0)=16 THEN DEG:FOR 1=0 TO 18 
0 STEP DIA;PLOT CX+ABS<X-CX)*COS<I),CY+A 
BS(X- CX)*SIN(I>: DRAW CX+ABS(X-CX)*COS<I) 

,CY+ABS(X-CX)*-SIN(I):NEXT I:DE=0sGOTO 1 
510 

1440 GOTO 1410 
1450 XA=X:YA=Y:XA1=X 

1460 IF TEST(XA1-R,YA)=0 AND XA1>0 THEN 
XA1=XA1-R:PLOT XA1,YA 

1470 IF TEST(XA+R,YA)=0 AND XA<6o8 THEN 
XA=XA+R:PLOT XA, YA ' 

1480 IF TEST(XA+R,YA)<>0 AND TEST(XA1-R, 
YA)< >0 OR XA>=638 AND XA1<=0 OR TEST(XA+ 
R, YA) < >0 AND XA1< =0 OR TEST ( XA1--R, YA) AN 
D' XA>=638 THEN GOTO 1500 
1490 GOTO 1460 

1500 IF TEST(X,YA+2)=0 AND YA<400 THEN Y 

A=YA+2: XA=X: XA1 = X: PLOT X,YA:GÜTO 1460 

1510 IF JOY(0)=1 THEN GOSUB 820:Y=Y+2:PL 

OT X,Y,C: PLOT X,Y-2:RETURN 

1520'IF JOY(0)=2 THEN GOSUB 810:Y=Y-^:PL 

OT X,Y,C:PLOT X,Y+2:RETURN 

1530 IF JOY (0) =4 THEN GOSUB 790:X = X-R:F'L 

OT X,Y,C: PLOT X+R,Y:RETURN 

1540' IF JOY(0)=8 THEN GOSUB 800:X = X+R:PL 

OT X , Y, C : PLOT X-R,Y:RETURN 

1550 IF JOY(0)=5 THEN GOSUB 860:X=X-R:Y= 


Y+2:PLOT X,Y,C:PLQT X+R,Y-2:RETURN 
1560 IF JOY(0)=9 THEN GOSUB 850:X=X+R:Y= 
Y+2:PLOT X,Y,C:PLOT X-R,Y-2:RETURN 
1570 IF JOY(0)=10 THEN GOSUB 840:X=X+R:Y 
=Y-2: PLOT X,Y,C:F‘LOT X-R, Y+2: RETURN 
1580 IF JOY(0)=6 THEN GOSUB 830:X=X-R:Y 
=Y-2:PLOT X,Y,C:PLOT X+R,Y+2:RETURN 
1590 GOTO 1510 
1600 REM ** NOTICE ** 

i&S EolA?E™4Îttp R INT"*» NOTICE **" 

1630 LOCATE 12,25:PRINT "PRESSEZ ESPACE 


1640 IF INKEY<47)00 THEN GOTO 1640 

1660 SÏSCATE 3,l:PRINT"PICAPR0 EST UN 
UTILITAIRE DE DESSIN SIMPLE MAIS EFFICA 
CE QUI VOUS F'ERMET DE DESSINER CE QUE VO 
ULEZ " 

1670 " F'EN 1: PR INT "CE PROGRAMME PERMET AUS 

SI DE SAUVER DES" __ 

1680 PRINT"PAGES DE PRESENTATION POUR VO 

S PROGRAMMES" „ 11T 

1690 PRINT"VOICI LES COMMANDES QUI VOUS 
PREMETTRONS D'UTILISER PLAINEMENT CET ’ 0 
UTIL' DE CREATION GRAPHIQUE QUI FONCTION 
NE AVEC LE CLAVIER ET LE JOYSTICK." 

17?0 CLsVfOCATE 1,3:PRINT"LORSQUE VOUS S 
ELECTIONNEZ(1) SI VOUS PRESSEZ LE BOUTO 
N DE TIR VOUS TRACER DES POINTb ,SI VOUS 
DEPLACEZ LE MANCHE EN MEME TEMPS VOUS T 
RACEZ DES COURBES" 

1720 GOSUB 1620 ___ 

1730 CLS:LOCATE 1,3:PRINT"SI VOUS SELECT 

1740 E FORINT "ON TRACE DES TRAITS, POUR CELA 
IL. FAUT" _ , ■ _ 

1750 PRINT"PRESSER LE BOUTON DE TIR,LE R 
ELACHER" 

1760 PRINT"DEPLACER LE 'MINI' CURSEUR A 

*i 770^ PR I NT "TI ON VOULUE ET REPRESSEZ SUR 
LE BOUTON " 

1780 PRINT"ALORS UN SIGNAL SONORE RETENT 
IRA ET LE" 

1790 PRINT"TRAIT SERA TRACE" 


îi?0 ClIsLOCATE 1,3:PRINT"SI VOUS PRESSE 

1820 } PRINT"ON TRACE UN CERCLE,POUR CELA 

1830 E PRINT"LE CENTRE DE CELUI CI,ON PRES 
ce | p BOUT—" 

1840 PRINT"ON DE TIR,UNE FOIS LE CENTRE 
pnRTTIONNF" 

1850 PR INT '‘APRES L.E CURSEUR NE SE DEPLAC 

1860 U pR?NT"DANS 2 DIRECTIONS,C'EST POUR 
PHOTRIR LE" 

1870 PRINT"DIAMETRE DU CERCLE,UNE FOIS C 

1880 PRINT"CHOISIE,ON REPRESSE LE BOUTON 
DE TIR" 

1890 PRINT"ET LE CERCLE SERA TRACE" 

1910 ClIÏlQCATE 1,3:PRINT"SI ON PRESSE ( 

1920 PRINT"ON TRACE DES DISQUES,CETTE CO 
MMANDE FONC-" 

1930 PRINT"TIQNNE COMME LE CERCLE 

1940 GOSUB 1620 . 

1950 CLS:LOCATE 1,3:PRINT"SI ON PRESSE ( 


=■■) : " 


1960 PRINT"ON EFFACE PUREMENT ET SIMPLEM 
ENT LE DES-" 

1970 PRINT"SIN " 

1990 ClI^LOCATE 1,3:PEN 6:PRINT"SI ON PR 
ESSE (8):":PEN 1 


2000 PRINT"ON REMPLIE UNE SURFACE ,POUR 
CELA IL 

2010 PRINT"FAUT METTRE LE 'MINI' CURSEUR 
DANS UNE" 

2020 PRINT"FIGURE VIDE(ON NE VOIT DONC Q 
UE LE CON" 

2030 PRINT"TOUR) ET ON PRESSE LE BOUTON 
DE TIR 11 

2040 FRINT"SI IL RESTE DES 'TROUS' NON D 
ESIRES" 

2050 PRINT"IL SUFFIT DE PLACER LE PETIT 
CURSEUR " 

2060 PRINT"SUR CES 'TROUS'ET DE REPRESSE 
R LE BOUT-" 

2070 PRINT"ON DE TIR" 

2080 GOSUB 1620 , 

2090 CLS:LOCATE 1,3:PRINT"LE PAVE NUMERI 
QUE + LES TOUCHES <ENTER>" 

2100 PRINT",<DEL>,<CLR> FONT VARIER LA C 
OULEUR DU" 

2110 PRINT"'MINI' CURSEUR" 

2120 LOCATE 14, 25:PRINT"PRESSEZ 'ESPACE' 


2130 IF INKEY(47)=0 THEN GOTO 2140:ELSE 
GOTO 2130 
2140 GOTO 890 

3000 CLS 

3001 PRINT"0: NOIR": PRINT"1 : BLEU": PRINT"2 
: BLEU BRILLANT": PRINT"3: MARRON": PRINT"4: 
MAGENTA": PRINT"5: MAUVE" : PRINT"6 : ROUGE BR 
ILLANT": PRINT"7: VIOLET": PRINT"8:MAGENTA 
BRILLANT": PRINT"9: VERT": PRINT"10:CYAN": P 
RINT"11 : BLEU CIEL":PRINT"12:JAUNE":PRINT 
"13:GRIS": PRINT 

3002 PRINT"16:ROSE" 

3005 LOCATE 21,1 : PRINT" 17: MAGENTA PASTEL 


>006 LOCATE 21,2:PRINT"18:VERT BRILLANT 


3007 LOCATE 21,3:PRINT"19:VERT MARIN" 

3008 LOCATE 21,4:PRINT"20:CYAN BRILLANT" 

3009 LOCATE 21,5:PRINT"21 : JAUNE CITRON " 

3010 LOCATE 21,6:PRINT"22:VERT PASTEL" 

3011 LOCATE 21,7:PRINT"23:CYAN PASTEL" 
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013 LOCATE 21,8: PRINT"24:JAUNE BRILLANT 

014 LOCATE 21,9sPRINT"25s JAUNE PASTEL" 
015 LOCATE 21,10SPRINT"26:BLANC BRILLAN 

II 

020 FOR 1=2 TO 14:LOCATE 13,24:PRINT"CO 
ULEUR No";i:LOCATE 25,24:INPÙT co:INK i, 
co:NEXT i: GOTO 870 

4000 CLS:INPUT"MODE 0,1 OU 2";M 

4001 IF M=0 THEN R=4:DIA=0.5 

4002 IF M=1 THEN R=2:DIA=0.25 


4003 IF M=2 THEN R=1:DIA=0.13 
4005 GOTO 890 

50 a 160 Initialisation(routine 
code machine sauvegarde 
écran en mémoire) 

170 a 1590 Routine divers 

+ programme principale 
1600 a 4005 Instruction 


3615 TILT: 

CA TORPILLE DANS LC PACIFIQUE! 



Enfin un jeu interactif sur le 3615 Tilt! Torpilles 
dans le Pacifique? Le rêve des amateurs de jeux 
multi-joueurs! Ce jeu de réseau vous envoie en 
plein Pacifique. Votre mission: détruire le 
maximum de sous-marins. Pour cela, vous 
disposez de commandes très simples résumées 
sur votre tableau de bord. Pour tirer: F + envoi. 
Divers moyens de détection (radar, sonar...) 
dressent une carte détaillée de la position de vos 
adversaires. Une île à l'horizon? Hop, une petite 
halte pour se réapprovisionner en torpilles, 
mines, gasoil, points de résistance... "J'y ai 


personnellement passé quelques heures. Le 
pied! On y retrouve tout ce que j'aime: de la 
stratégie mêlée à une action prenante. Pour tout 
dire, c’est grisant de traquer un sous-marin 
ennemi en temps réel, d'autant que l'adversaire 
est un humain, c'est plus stimulant qu'une 
"intelligence artificielle”. On peut faire cavalier 
seul ou lier alliance avec des copains. Le but du 
jeu est de devenir la terreur du Pacifique... Alors, 
si vous êtes un vrai tueur, vous ferez fuir tous les 
marins d'eau douce rien qu'a l'apparition de votre 
pseudo! " Dany Boolauck 
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PETIT MEMO 
GFA BASIC 

L’atari ST dispose de nombreux 
langages, tel que: 

ST BASIC 
GFA BASIC 
L’OMMICRON 
LDW 

ASSEMBLEUR 68000 

PASCAL 

C 

PROLOG 

Nous allons nous intéresser au GFA 
BASIC. Ce langage comme son nom 
l’indique est un basic. Il est stucturé, 
c’est-à-dire qu’il ne comporte pas de 
numéros de lignes. Ce basic est bien 
diffusé auprès des utilisateurs du ST. 
Sa vitesse d’interprétation du code 
Basic est très rapide, ce qui fait sa 
force. Vous pouvez, à l’aide de son 
compilateur, rendre vos programmes 
plus rapides. De plus ils seront 
directement exécutables du GEM. Le 
GFA est ouvert à toutes les 
possibilités du ST.il peut s’accoupler 
très facilement avec le GEM à l’aide 
des fonctions XBIOS, GEMDOS. Son 
éditeur plein écran est assez pratique. 
Vous pouvez insérer des lignes, 
copier, déplacer des blocs de lignes, 
rechercher un mot dans le listing et le 
remplacer. Je vais vous donner 
plusieur petit exemples du GFA basic, 
et des commentaires sur chaque 
fonction: 

EXEMPLE 1: 

DO ! DEBUT DE LA BOUCLE 

VSYNC ! SYNCHRONISATION AVEC L’ECRAN 

FOR i&=1 to 70 ! boucle i& (valeur des 

COULEURS) 

SETCOLOR 0,i& ! change la couleur du 

FOND 

N EXT l& ! FIN DE LA BOUCLE l& 

LOOP ! RECOMMENCE LA BOUCLE (DO) 


EXEMPLE 2: 

RESERVE -1 ! REDONNE DE LA PLACE 

MÉMOIRE AU GFA 

ON BREAK GOSUB BR Idétourne le 

BREAK (CTRL+SHIFT+ ALTERNATE) VERS BR 

SETCOLOR 0,0 ! fond noir 
SETCOLOR 1 5,&H777!écriture blanche 
RESERVE FRE(0)-32767 Iréserve de la 

PLACE MÉMOIRE POUR L’ÉCRAN 

A=HIMEM (donne l adresse mémoire de la 

FIN DES VARIABLES 

LOG=XBIOS(3) Iadresse mémoire de 

L’ÉCRAN LOGIQUE 

DELOG Idécale lécran logique 
DO ! DÉBUT BOUCLE 

FOR 1=1 TO 100 ! boucle pour les 
cercles 

CLS ! EFFACE L’ÉCRAN 

CIRCLE 160,100,1 Iaffiche LES cercles 

VSYNC ! synchronisation avec lécran 

AFF Iaffiche l'écran 

NEXT I Ifin boucle des cercles 

LOOP ! RECOMMENCE A PARTIR DE DO 

PROCEDURE AFF Iaffiche lécran 

PHYSIC 

BMOVE XBIOS(3),XBIOS(2),32000 
RETURN 

PROCEDURE LOG Iremet a sa place 

L’ÉCRAN LOGIQUE 

VOID XBIOS(5,L:LOG,-1 ,-1) 

RETURN 

PROCEDUR DELOG Idecale les écran 

PHYSIC ET LOGIQUE 

VOID XBIOS(5,L:A,-1,-1) 

RETURN 
PROCEDURE BR 
RESERVE -1 
LOG 

EDIT (retour sur l'éditeur 
RETURN 

EXEMPLE 3: 

CIRCLE 100,100,10 (AFFICHE UN CERCLE 
G ET 90,90,110,110,A$ ! prend le cercle 

DANS UN BLOCK MÉMOIRE 

CLS Iafface lécran 
FOR 1=0 TO 15 ! boucle i 
CLS 

PUT 100,100,A$,I (réaffiche le cercle 

DANS UN MODE DIFFÉRENT 

PRINT “MODE: ”;l 

VOID INP(2) (attend lappui sur une 

TOUCHE 


NEXT I (fin de la boucle i 

Il existe plusieurs versions du GFA 
BASIC, de la version 2.0 jusqu’à 3.5, 
cette dernière étant beaucoup plus 
sophistiquée que les précédentes. Un 
éditeur plus rapide, des fonctions 
GEM sans obligation de passer par 
les VOID (c’est-à-dire de les appeler 
directement en mémoire, ce qui évite 
des erreurs et des plantages de la 
machine). 

quelques petits conseils: 

Evitez de travailler directement sur 
des adresses mémoire. Cela pourrait, 
si vous ne faites pas très attention 
provoquer des plantages de la 
machine. De plus les adresses 
mémoire changent assez souveni 
suivant le type de ST que vous 
possédez. 

Il existe plusieurs types de variables 
N’utilisez que des variables er 
circonstance! Les variables entières 
sont beaucoup plus rapide encàlcul 
Par exemple, si vous affectez une 
valeur entière à une variable telle que 
A=50 vous pouvez écrire A%=50. ce 
qui revient au même sauf pour I; 
vitesse d’affectation de la valeur à Iî 
variable. 

Donnez des noms clairs à vo: 
variables. N'hésitez pas à mettre pa 
exemple COORDX=100 pour li 
coordonnée X d’un objet. Evitez auss 
d’enfourcher trop de boucles l’un» 
dans l’autre comme ceci: 

FOR 1=1 TO 10 
PRINT I 

FOR 0=1 TO 20 
FOR U=1 TO 10 
PRINT 0*U+l 
NEXT U 
NEXT O 
NEXT I 

Je ne vois pas d’autre 
recommandations pour les listings, 
ne vous reste qu’à taper, si en fai 
j’en ai encore un: celui de taper ce 
listings intelligemment, c’est-à-dii 
de bien comprendre chaque fonctic 
et chaque ligne que vous tapez. 
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EQUALIZER SCREEN 


Idéal pour les amateurs d’effets spéciaux, Equalizer Screen donne à 
l’écran de votre ST une nouvelle jeunesse! A chaque pulsation 
sonore, le moniteur réagit. Un son et lumière original et 

impressionnant. 


(©présent 1 

PROCEDURE présent 1 
DEFMOUSE STRING$(74,MKI$(0)) 1 
SPOKE&H 484,0 1 
OUT 4,181 

ON BREAK GOSUB br 1 
FOR i-0 TO 15 1 
READ cc$ 1 
f$»f$+cc$ 1 
oVAL("&h"+cc$) 1 
SETCOLOR i,c 1 
NEXTil 
DATA 

0,333,444,432,555,543,320,777,007,700,60 
3,777,507,777,777,000 1 
DEFTEXT 15,0,0,161 
TEXT 10,15,'*(c) PANOUILLOT" 1 
TEXT 10,35,-1989 michei" 1 
DEFTEXT 11,3,0,501 
TEXT 0,200,EQU ALIZER SCREEN -~1 
DO 1 
c-201 
c2»20 1 
il-cl 
i-10 1 
u«c2 1 
REPEAT1 
IF INKEY$<>"*' 1 
(©init 1 
ENDIF 1 
VSYNC 1 
i-i+il 1 
IF i<u 1 
il-cl 
i=u 1 

ADD u,20 1 
ENDIF 1 
IF i>255 1 
il-cl 
ENDIF 1 
FOR o-l TO i 1 
NEXTol 
FOR i%-0 TO 7 1 
SETCOLOR 0,i%,i%,i% 1 
N EXT i% 1 

FOR i%=7 DOWNTO 0 1 
SETCOLOR 0,i%,i%,i% 1 
NEXT i% 1 


UNTIL i>255+ABS(il) 1 
LOOP1 
RETURN 1 
PROCEDURE init 1 
CLS 1 

DIM v(10),f$(20),g$(3) 1 
RESERVE FRE(0)-32768 1 
a-HIMEM 1 
log-XBIOS(3) 1 
delog 1 

FOR ii-0 TO 15 1 
DEFFILL 6,11 
PBOX 160-ii, 100-ii, 160+ii, 100+ii 1 
DEFFILL 12,4 1 
PCIRCLE 160,100,ii 1 
COLOR 11 
CIRCLE 160,100,ii 1 
GET 

160-ii, 100-ii, 160+ii, 100+ii,f$(ii) 1 
NEXT ii 1 
FOR e-1 TO 3 1 
DEFFILL 8+e, 11 
PBOX 29,29,36,35 1 
GET 29,29,36,35,g$(e) 1 
NEXT e 1 
DEFFILL 5,11 
PBOX 100,100,109,104 1 
COLOR 11 
LINE 101,104,109,104 1 
LINE 109,101,109,104 1 
GET 100,100,109,104, k$ 1 
CLS 1 

DEFFILL 7,11 
PBOX 0,0,319,501 
DEFFILL 6,11 
PBOX 3,3,316,471 
FOR aa-0 TO 2 1 
COLOR 5 1 

LINE 2-aa,48+aa,319,48+aa 1 
LINE 319-aa,0+aa,319-aa,48 1 
COLOR 13 1 
LINE 0,0,2.2 1 
COLOR 2 1 
LINE 319,50,317,48 1 
NEXT aal 
DEFFILL 0,11 
PBOX 165,18,309,42 1 
FOR aa-0 TO 145 STEP 9 1 
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COLOR 2 1 
LINE 165,18,309,18 1 
LINE 165+aa,18,165+aa,411 
LINE 165,26,309,26 1 
LINE 165,34,309,34 1 
LINE 165,42,309,42 1 
N EXT aal 
GRAPHMODE 2 1 
DEFTEXT 15,0,0,4 1 
TEXT 157,24,'T 1 
TEXT 157,32,"2" 1 
TEXT 157,40,"3" 1 
TEXT 165,15,"Maxi" 1 
TEXT 287,15,"Mini" 1 
DEFTEXT 3,0,0,8 1 
TEXT 76,93,"EQU ALIZER SCREEN 
DEFTEXT 2,0.0,8 1 
TEXT 77,93,"EQU ALIZER SCREEN" 


G ET 25,11,308,4 l,ef$ 1 
DEFFILL 15,11 
PBOX 18,87,60,157 1 
COLOR 3 1 
LINE 17,86,59,86 1 
LINE 17,86,17,156 1 
COLOR 2 1 
LINE 16,85,58,85 1 
LINE 16,85,16,155 1 
COLOR 10 1 
FOR c-lTO 65 STEP4 1 
LINE 20,154-c,58,154-c 1 


1 

1 


NEXTcl 

GET 16,85,59,156,cub$ 1 
FOR c=2 TO 4 1 
DEFFILL c,11 

PBOX 75+c, 125+c,247-c, 159-c 1 


NEXTcl 


DEFFILL 1,11 
PBOX 80,130,242,154 1 
GET 80,130,242,154,bl$1 
DEFFILL 6,11 
PBOX 279,60,319,157 1 
DEFTEXT 1,0,0,4 1 
FOR ee=0 TO 9 1 
TEXT 282,156-(ee*6),ee 1 
TEXT 297,156-(ee*6),ee 1 
TEXT 312,156-(ee*6),ee 1 
N EXT ee 1 
FOR ee=10 TO 151 
TEXT 278,156-(ee*6),ee 1 
TEXT 293,156-(ee*6),ee 1 
TEXT 308,156-(ee*6),ee 1 
N EXT ee 1 
COLOR 5 1 
FOR ee=lTO 41 
LINE 279-ee,60,279-ee,158-ee 1 
LINE 320-ee,60-ee,275,60-ee 1 
N EXT ee 1 

GET 279,62,319,156,chr$ 1 
delog 1 
@gene 1 
RETÜRN 1 


PROCEDURE gene 1 
DEFFILL 6,11 
DO 1 

IFINKEY$=" "1 
PUT 25,1 l,efS 1 
(©toto 1 
ENDIF1 
PUT 25,1 LefS 1 
FOR i%- 1 TO 3 1 
v=XBIOS(28,64,7+i%) 1 
PUT -v+i%*40,25-v,f$(v) 1 
PUT 30 l-(v*9), 1 l+(i%*8),g$(i%) 1 
N EXT i% 1 
aff 1 
LOOP1 
RETURN 1 
PROCEDURE toto 1 
DO 1 

IF INKEY$=" " 1 
PUT 16,85,cub$ 1 
@toto 11 
ENDIF1 
PUT 16,85,cub$ 1 
FOR i%= 1 TO 3 1 
v=XBIOS(28,64,7+i%) 1 
DEFFILL 9,11 
PBOX 

10+(i%*12),150-(v*4),20+(i%*12),155 1 
COLOR 11 
BOX 

10+(i%*12), 150-(v*4),20-(i%* 12), 155 1 
COLOR 10 1 
N EXT i% 1 
aff 1 
LOOP1 
RETURN 1 
PROCEDURE toto 11 
DO 1 

IFINKEY$=" "1 
PUT 80,130,bl$ 1 
@toto2 1 
ENDIF1 
FOR i%* 1 TO 3 1 
v«XBIOS(28,64,7+i%) 1 
c*(v*10) 1 

FOR o=232-c TO 232 STEP 10 1 
PUT o,126+(i%*7),k$ 1 
NEXTol 
N EXT i% 1 
aff 1 

PUT 80,130,bl$ 1 
LOOP1 
RETURN 1 
PROCEDURE toto2 1 
DO 1 

IF INKEYS-" " 1 
PUT 279,62,chr$ 1 
@gene 1 
ENDIF 1 

PUT 279,62,chr$ 1 
t—4 1 
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aff 1 
L00P1 
RETURN 1 . 

PROCEDURE aff 1 
BMOVE XBIOS(3),XBIOS(2),32000 1 
RETURN 1 
PROCEDURE log 5 
VOID XBIOS(5,L:log,-l,-l)1 
RETURN 1 
PROCEDURE delog 1 
VOID XBIOS(5,L:a,-l,-l)1 
RETURN 1 
PROCEDURE br 1 
log 1 

RESERVE FRE(0)+32512 1 
EDIT 1 
RETURN 1 


ATAR/ST 


Fl CHAMP 


Votre formule 1 est déjà sur la ligne de départ. 

Compte à rebours et en route pour le frisson de la course! 

Ce programme développe un scrolling de très bonne qualité qui ne décevra 

en rien les amateurs du genre. 

Reserve 100000 f 
@Sauve couleur If 
On Breal< Gosub Sortie If 
On Error Gosub Sortie If 
’ recherche l’adresse du joystick 
(problèmes de ROM) If 
Mc$*Mki$(&H23C8)+Mkl$(*A%)+Mki$(&H4E75) 

If 

V%=Xbios(34)+24 If 
0%=Lpeek(V%) If 
Lpoke V%,Varptr(Mc$) If 
A%=0 If 
Out 4.&H16 If 
Repeat If 
Until A% If 
Lpoke V%,0% If 
Jl%»A%+2 If 

@Couleur linitialise les couleurs If 

@Voiture Idessine les voitures If 

@Fond Idessine le fond If 

©Musi linitialise le son If 

©Variables linitialise les variables If 

©Départ Ibranche sur une procédure 
d’attente If 


Do If 
@Scrol If 
@Joystick U 

Y1%«(50*(Y1%>320))-((Y 1%+(Vit%*1.5))*(Y 1 
%<320))+(24*(Y1%>-150)) déplacement 
vertical des If 

Y2%=(50*(Y2%>320))-((Y2%+(Vit%* 1.5)) *(Y 2 
%<320))+(20*(Y2%>-150)) Ivoitures 
dverses If 
If Yl%<-40 If 

X1%«Random(120) + 80 
ipositionemment latéral des voitures 
adverses If 
Endif If 
If Y2%<-40 If 
If Xl%+40<170 If 
X2%*Xl%+40 If 
Elself 

X2%=Xl%-35 If 
Endif If 
Endif If 

If Vit%<20 And Vit%>=0 If 


v(l)»XBIOS(28,64,8) 1 
v(2)=XBIOS(28,64,9) 1 
v(3)»XBIOS(28,64,10) 1 
IF v(l)>9 1 
t=01 
ENDIF 1 

TEXT 278-t,156-(v(l)*6),v(l) 1 
t—4 1 
IF v(2)>9 1 
t=01 
ENDIF 1 

DEFTEXT 15,0,0,4 1 
TEXT 293-t,156-(v(2)*6),v(2) 1 
t*-4 1 
IF v(3)>9 1 
t=01 
ENDIF 1 

TEXT 308-t, 156-(v(3)*6),v(3) 1 







Void 

Xbios(32,L:Varptr(Son$(Vit%/2))) !son 
sous interruption en fonction e la 
vitesse If 
Endif If 

Put X1%,Yl%,Ma$,4 ! affiche le 

masque H 

Put X1%,Y1%,B$,7 laffiche la 

voiture If 

Put X2%,Y2%,Ma$,4 lidem If 

Put X2%,Y2%,C$,7 If 
Put X%,Y%,Ma$,4 If 
Put X%,Y%,A$,7 If 

Score%=Score%+Vit% ! cal cul du 
score If 

’ on peut valider la ligne suivante on 
suit le score et le temps a l’écran If 
’ PRINT 

AT(1,3);score%,ÏNT(60-((TIMER-t)/200)) 
Imais cela ralentit le jeu If 
(©Affichage If 

If (Timer-T)/200>60 !si une minute 
est écoulée If 


! calcul du 


!si une minute 


@Score !va tester le 

score If 

(©Variables Iréinitialie 

les variables If 

’ (©Fond If 

(©Départ Ibranche a une 

procédure d’attente If 
Endif If 

(©Test acci Iteste s’il 

n’y a pas d’accident If 
Loop If 
(©Sortie If 

Procedure Sauve couleur If 
Local N If 

For N=&HFF8240 To &HFF825F If 
Old pal$=Old pal$+Chr$(Peek(N)) 

!va lire les couleurs initiales If 
Next N If 
Return If 

Procedure Instal couleur(Couleur$) If 
Void Xbios(6,L:Varptr(Couleur$)) 
Iremet les couleurs initiales If 
Return If 

Procedure Joystick If 
J=Peek(J1%) If 

’ algorythme de déplacement vertical 
si on appuie sur le bouton du joystick 
Y%=Y%+(6*(J=1)*(Mousek<>0)*(Y%>20))-(10* 
((J=0)+(J=2))*(Mousek<>0)*(Y%<150)) ’ 

algorythme de déplacement latéral If 

X%=X%+((Vit%/2)*((J=4)-(J=8)+(J=5)-(J=10 
)+(J=6)-(J=9))) If . . , . 

’ algorythme de variation de la 
vitesse a laquelle on déplace le fond If 

it%=(((J=1)+(J=5)+(J=9))*(Vit%<24))-(4*( 

(J=2)+(J=6)+(J=10))*(Vit%>0))-((Vit%>0)V 


Iréinitialie 


Ibranche a une 


Iteste 


it%) If 
Return If 

Procedure Sortie If 
Showm If 

Void Gemdos(73,L:Tamp%) 
llibere la mémoire If 
Void Gemdos(73,L:Ecran%) If 
Void 

Xbios(5,L:Xbios(3),L:Xbios(3),W:-1) 
Iremet l’écran logique avec 'écran 
physique If 

(©Instal couleur(Old pal$) 

Iremet les couleurs initiales If 
Setcolor 0,7,7,7 If 
’ PRINT "err n";ERR 
lutile pour debuggerlll! If 
’ VOID INP(2) 

{pour avoir le temps de lire!!! 
Edit If 
Return If 

Procedure Scrol If 
Errae 

Adrtampon%+32000,Xbios(3)+2560,29440 
Icopie le fond sur l’écran If 
Sub Adrtampon%,160*Vit% 

Idecale le fond If * 

If Adrtampon%<=Ecran%-32000 

Isi on arrive au bout du tampon If 
Adrtampon%=Ecran% 

Iremet au début f 
Endif If 
Return If 

Procedure Affichage If 
Bmove Xbios(3)+2560,Tamp%+2560,29440 
Icopie l’écran dans le tampon If 
Void Xbios(5,L:Xbios(3),L:Tamp%,W:-1) 
laffiche le tampon If 
Return If 
Fi: If 
Data 

7.66.24.79.26.12.67.25.78.25.7.66.5.79.7 
,12,67,6,78,6 If 

Data 

12,68,28,77,28,12,59,4,64,9,12,81,4,86,9 

,12,59,21,65,27,12,80,21,86,27 If 

Data 

,70,8,75,17,5,69,11,76,18,5,68,12,77,19, 

5,69,22,76,23,5,70,24,75,25,5,67,27,78,3 

f 

Data 

,72,1,73,9,2,71,3,74,8,2,70,6,75,7,2,66, 

14.67.19.2.64.15.65.19.2.63.16.63.19.2.8 
,14,79,19,2,80,15,81,19,2,82,16,82,19 If 

Data 

,70,18,75,23,2,68,20,77,20,2,59,22,66,22 
,2,80,22,85,22,2,81,5,85,5,2,59,5,63,5 If 
Data 

12,71,14,74,18,12,72,13,73,13,12,68,28,7 
7,28 If 

Data 0,0,0,0,0,0 If 
Couleur: If 
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Data 

0,0,0,7,7,7,7,7,0,0,3,0,0,0,7,5,0,7,7,0, 
0,7,0,0,0,4,4,5,0,5 1F 

Data 4 , 2 ,7,5,5, 0 , 1 , 0 , 0 ,7,7,7,7,7,7,7,7,7 

1Ï 

Procedure Voiture 1F 

Ecran%=Gemdos(72,L:64000) !crée 

un tampon de 64000 octets 1F 
Tamp%=Gemdos(72,L:32000) !idem 

mais 32000 octets 1F 
Adrtampon%=Ecran% 1F 
Restore Intro 1F 
For l%=10 To 300 Step 20 1F 
J%=140 1F 
Read A% 1F 
Do 1F 

Deftext 0,4,0,32 1F 
Text l%,J%,Chr$(11) 1F 
Deftext 3,1F 
Sub J%,7 1F 
Text l%,J%,Chr$(11) f 
Exit If J%<70 1F 
Exit If A%=32 1F 
Loop 1F 

Print Chr$(7) 1î 
Deftext 4,4,0,26 1F 
Text l%,J%,Chr$(A%) 1F 
Graphmode 2 1F 
Deftext 3,1F 

Text l%+5,J%-2,Chr$(A%) 1F 
Graphmode 11F 
Next 1% 1F 

For l%=90 To 220 Step 10 1F 
J%=190 1F 
Read A% If 
DolF 

Deftext 0,4,0,249 1F 
Text 1%, J%,Chr$(11) 1F 
Deftext 3,1F 
Sub J%,5 1F 

Text l%,J%,Chr$(249) 1F 
Exit If J%<130 1F 
Exit If A%=32 1F 
Loop 1F 

Print At(1,1);Chr$(7) 1F 
Deftext 5,4,0,6 1F 
Text l%,J%,Chr$(A%) 1F 
Next 1% 1F 
Graphmode 11F 

Bmove Xbios(3),Tamp%,32000 
Icopie la page de présentation dans un 
tampon 1F 

Void Xbios(5,L:Xbios(3),L:Tamp%,W:-1) 
laffiche ce tampon et désactive 'écran 

1F 

Restore Fi '.datas 

de la voiture 1F 
DolF 

Read A%,A1%,A2%,A3%,A4% 1F 
Exit If A1%=0 1F 
Deffill A% 1F 


P box A1%,A2%,A3%,A4% 1F 
Loop 1F 

Get 59, 1 , 86 ,33,A$ 1F 
Deffill 8 1F 
F i 11 73,11 

(change de couleur et crée une deuxieme 
oiture 1F 
Fill 73,31 1F 
Fill 72,7 1F 

Get 59,1,86,33,B$ 1F 
Deffill 5 1F 

Fill 73,11 üdem 

3ème voiture 1F 
Fill 73,31 1F 
Fill 72,7 1F 
Deffill 3 1ï 
Fill 65,16 1ï 
Fill 81,161F 
Fill 73,21 1ï 
Get 59,1,86,33,C$ 1Ï 
For l%=59 To 86 1F 

Deffill 15 lcrée 

le masque (tout en blanc) 1F 
For J%=1 To 33 1F 
If Point(l%,J%)<>0 1F 
Plot l%,J% 1F 
Endif 1î 
Next J% 1F 
Next 1% 1î 

Get 59, 1 , 86 ,33,Ma$ 1F 
Return 1F 

Procedure Fond 1F 
Deffill 6,2,8 1ï 

P box 0,0,319,199 1F 
For l% = 0 To 20 
Iquelques motifs pour le fond 1F 
Deffill 

Random(14)+1,Random(3),Random(12) 1ï 
P c i rc I e 

Random(320),Random(180)+10,Random(20)1F 
Next 1% 1F 
Deffill 10,2,8 1F 

Pbox 80,0,220,199 Ma 

route 1F 
Deffill 2 1F 

Pbox 75,0,80,199 Mes 

bandes sur les cotés 1F 
Pbox 220,0,225,199 1F 
Deffill 5 1F 

For l%=0 To 160 Step 40 1F 
Pbox 75,l%,80,l%+20 1F 
Pbox 220,1%,225,l%+20 1F 
Next 1% 1F 

Bmove Xbios( 3 ),Ecran%,32000 
Icopie ce qui est a l’écran dans le 
ampon ecran%0 1F 

Bmove Xbios(3) ,Ecran%+32000,32000 
lidem mais a la suite 1F 
Return 1F 

Procedure Couleur 1F 


57 




Restore Couleur 1F 
For l%=0 To 15 1F 
Read R%,V%,B% 

Mit les datas des couleurs 1F 
Setcolor l%,R%,V%,B% 
{initialise les couleurs 1F 
Next 1% 1F 
Return 1F 

Procedure Acci H 
Bmove Tamp%,Xbios(3) ,32000 1F 
Void 

Xbios(5,L:Xbios(3),L:Xbios(3),W:-1) 1ï 
Defline 6 1F 
Graphmode 3 1F 
Deftext 3,4,0,32 1F 
For l%=0 To 15 1F 
Deffill Random(15) 1î 
Pcircle X%+15,Y%+15,30 1F 
Sound 1,15,1,4,2 1F 
Text 100 , 50 ,"DAMNED" 1F 
Sound 1,15,1,2,2 1F 
Next 1% 1F 
Graphmode 1 1F 
Sound 0,0 1F 
@Variables 1F 
Return 1F 

Procedure Test acci f 
If X1%>=X%-26 And X1%<X%+26 And 
Yl%>Y%-25 And Yl%<Y%+25 1F 
@Acci 1F 
Endif 1F 

If X2%>=X%-26 And X2%<X%+26 And 
Y2%>Y%-25 And Y2%<Y%+25 1F 
@Acci 1F 
Endif 1F 

If X%<75 Or X%>=200 1î 
@Acci 1î 
Endif 1î 
Return 1F 

Procedure Variables If 
X% = 150 

{notre voiture (OUAAAHHHÜ!) 1F 
Y%=149 1F 
X1% = 150 
Iles autres 1F 
Y 1%=-20 1 î 
X1%=150 1F 
Y2%=-80 1F 
Vit%=0 1F 
Return 1F 

Procedure Départ 1î 
@Scrol 1F 

Put X%,Y%,Ma$,4 1F 
Put X%,Y%,A$,7 1F 
Deftext 5,4,0,32 1F 
Text 50,100," PRESS FIRE " 1î 
Deftext 5,4,0,6 1F 
If P%=0 1F 
Graphmode 1 1î 
Print At(1,1),Space$(64) 1F 
Deftext 5,4,0,6 1F 


Text 10,10," BEST DRIVER : UNKNOWN " 

1F 

Bmove Xbios(3),Tamp%,2560 1F 
Inc P% 1F 
Endif 1F 
@ Affichage 1F 
Repeat 1F 
Until Mousek If 
For l%=1 To 3 1î 

Print Chr$(7) Isonnerie 

1Î 

Pause 50 ! pause une 

seconde 1F 
Next 1% 1F 
Print At( 1,1) 1î 
T = T i m e r 

{initialise le compteur temps 1F 
Clr Score% !met le 

score à 0 1F 
Return 1F 

Procedure Score 1F 
Bmove Tamp%,Xbios(3),32000 1F 
Void 

Xbios(5,L:Xbios(3),L:Xbios(3),W:-1) 1F 
Print Chr$(7) 
îpour arrêter le son 1F 
Deftext 3,4,0,32 1F 
Text 40,100," TEMPS ECOULE " 1F 
Deftext 3,4,0,13 1F 
Sc1$="votre score est de 
"+Str$(Score%) 1F 
Text 55,120,Sc1$ 1F 
If Score%>Scorel% 1F 
Input "nouveau record, votre nom 
",N$ 1F 

Score 1 %=Score% 1F 
Endif 1F 

Sc$=" BEST DRIVER : "+N$+" 
"+Str$(Score1%) H 
Deftext 5,4,0,6 1F 
Print At(1,1),Space$(64) 1F 
Text 10,10,Sc$ 1F 

Bmove Xbios(3),Tamp%,32000 1î 
Void Xbios(5,L:Xbios(3),L:Tamp%,W:-1) 

1F 

@Fond 1F 
Repeat 1î 

If lnkey$="e" Or lnkey$="E" 1F 
@Sortie 1F 
Endif 1F 

Until Mousek H 

’ si vous compilez le programme 
validez les lignes suivantes cela permet 
de ortir sans reset 1F 
’ Alert 3," |UNE 

AUTRE PARTIE", 1 ,"OUI|NON",Rep% 1F 
’ If Rep%=2 1F 
’ Gosub Sortie 1F 
’ Endif 1F 
Hidem 1î 
Return 1F 
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Procedure Musi !crée les 

chaines de caractères pour le son 1F 
Restore Music Imais c’est 

un peu long a expliquer ici... 1F 
Si%=10 !pour tous 

renseignements sur ce programme If 
Dim Son$(11) !vous 

pouvez m’ecrire P. MAURES 1F 
For J%=1 To 11 MO. rue A. 

BRIAND - 33150 CENON 1F 

For G%=1 To 22 !S’il vous 

plait envoyez une enveloppe timbrée 1F 
Read D% !à votre 

adresse, merci et amusez-vous bien 1F 

Son$(Si%)=Son$(Si%)+Chr$(D%) H 
Next G% 1F 
Dec Si% 1F 
Next J% 1F 
Return 1î 
Music: 1F 
Data 

0,170,1,4.5,252,8,14,9,16,2,160,3,5,11,1 

,12,1,13,8,130,21F 

Data 

0,170,1,5,5,252,8,14,9,16,2,160,3,5,11,1 

,12,1,13,8,130,2 1Ï 

Data 

0,170,1,6,5,252,8,14,9,16,2,160,3,5,11,1 

,12,1,13,8,130,21F 

Data 


0,170,1,7,5,252,8,14,9,16,2,160,3,5,11,1 

,12,1,13,8,130,21F 

Data 

0,170,1,8,5,252,8,14,9,16,2,160,3,5,11,1 

,12,1,13,8,130,2 1F 

Data 

0,170,1,9,5,252,8,14,9,16,2,160,3.5,11,1 

,12,1,13,8,130,2 1F 

Data 

0,170,1,10,5,252,8,14,9,16,2,160,3,5,11, 

1.12.1.13.8.130.2 1F 
Data 

0,170,1,11,5,252,8,14,9,16,2,160,3,5,11, 

1,12,1,13,8,130,21F 

Data 

0,170,1,12,5,252,8,14,9,16,2,160,3,5,11, 

1,12,1,13,8,130,21F 

Data 

0,170,1,13,5,252,8,14,9,16,2,160,3,5,11, 

2.12.2.13.8.130.2 1F • 

Data 

0,170,1,14,5,252,8,14,9,16,2,160,3,5,11, 

2,12,2,13,8,130,2 1F 
Intro: 1F 
Data 

70.49.32.67.72.65.77.80.73.79.78.83.72.7 
3,80 1F 

Data 

80.65.84.82.73.67.69.32.77.65.85.82.69.8 
3,73,73,73,73,73 1F 


ATARI ST 

MATHS 


Révisions, cours du soir ou tout simplement plaisir de la 
“bosse des maths”, ce listing traduit toutes les équations qu’on lui 
propose en une très claire représentation graphique. 

Le pied pour les passionnés! 


RemlF 

Rem * par thomas FERRAGU *1f 
RemlF 

Rem * Décembre 1988 *1F 

RemlF 

On Err Gosub ErreurIF 
Setcolor 2,951F 
Setcolor 6,18101F 
Setcolor 3,2331F 
Setcolor 7,01F 
Setcolor 0,19111F 
On Break ContIF 


Drnn Nv$^2),X8(2j) ,Y8(2),X9(2),Y9(2) 1F 

lfE Kii l r.*lst , ^V 1 

EndiflF 

Dim Nf$(5),Fonction 1$(5),Fonction$(5)1F 
Bmove 352000,Varptr( Ml),61F 
Bmove 352007, Varptr( Ni),61F 
Bmove 352014,Varptr(A),61F 
Bmove 352021,Varptr(B),61f 
Bmove 352028, Varptr(C) ,61F 
Bmove 352035,Varptr(D),61F 
Bmove 352042,Varptr(lndicateur%) ,61F 
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Bmove 352049,Varptr(Nf%),6f 
Dim Fleche1$(9)f 
Dim Lgn$(66)f 
Remit 

Restore Textelf 
For T%=1 To 661t 
Read Lgn$(T%)1t 
Next T%1t 
Restore Musiquelt 
Dim Not%(15)f 
For T%-1 to 151t 
Read Not%(T%)1t 
Next T%1t 
If lndicateur%=0f 
Clslt 

Print At(6, 2 )/'ATTENTION :"1t 

Print At(6,5);"Vous devrez initialiser 

la machine H 1f _ , . 

Print At(6,6);"(reset) a chaque fois 
que vous"1î 

Print At( 6 , 7 );"voudrez utiliser ce 
programme."1t 

Print At(6,9);"ll doit etre enregistre 
sous"1t 

Print At(6,11) ;"MATH .bas"1t 
Print At( 6 , 13 ); M Uniquement en basse 
resolution, f 

For T%=320000 To 353200lt 
Poke T%,01t 
Next T%1f 

Alert 0,Space$(100),1, H OK",Ret%1t 
Dim Car%(13)f 
Restore Caralt 
For T%=1 To 13lt 
Read Car%(T%)1f 
Next T%1f 
Clslt 
Hidemf 
Color 14lt 
BOX 1,85, 319,45lt 
For T%=1 To 131t 
Deftext T%+1,0,0,161t 

For Tp%»320 To T%*23 Step -101f 
Text Tp%,70,Chr$(Car%(T%))f 
Text Tp%,70,Chr$(32)f 
Next Tp%1f 
Sound 1,15,T%+1,3,51f 
Text T%*23,70,Chr$(Car%(T%))1t 
Wave 0,01f 
Color 15-T%1f 
Box 1,85,319,45U 
Next T%1f 

Alert 0,Space$(100),1," à vous ",Ret%f 
Hidemlt 

Gosub Musiquelt 

M1=0f 

Nl=01f 

A=110f 

B=130f 

C=11t 

D=Tf 


Nf%=0f 

Ondicateur%=01f 

Endiflt 

If Indicateurs Or lndicateur%=3f 
For T%=1 To Nf%1t 
Fo$=Space$( 1 CX>)1t 
Errae 

352050+(T%* 100) ,Varptr(Fo$) ,99lf 
Fonction$(T%)-Mid$(Fo$,1,(lnstr(1,Fo$,"c 

ool")-1))1t 
Next T%1f 
Endiflt 

If lndicateur%=11f 
Clr lndicateur%1t 
Bmove 320000,XbiOS(2),32000lt 
Fullw lit 

Gosub Tracagelt 
Endiflt 

If lndicateur%=31î 
Clr lndicateur%1t 
Gosub Tracelt 
Endiflt 

Restore Lutin If 
For T%=0 To 31 f 
Read Flf 

FI1$»FI1$+Mki$(F1)1t 
Next T%f 
Restore Lutin2f 
For T%=0 To 31 f 
Read F2f 

FI2$=FI2$+Mki$(F2)1t 
Next T%f 

Fleche1$*Mki$(1)+Mki$(1)+Mki$(0)+Mki$(0) 

+Mki$(1)+FI1$1t 

Fleche2$-Mki$(1)+Mki$(1)+Mki$(0)+Mki$(0) 
+Mki$(1)+FI2$f 
Void xbios(5,L:-1 ,L:-1,0)f 
Graphmode 2lt 
If lndicateur%=2f 
Bmove 320000,Xbios(2),32000f 
Endiflt 

Couleur%=11f 
Restore Menusf 
Dim Men$(24)f 
For T%=0 TO 24f 
Read Men$(T%)f 
Next T%f 
Menu Men$()1f 
Deftext l,0,0,4lf 
Color If 
Line 0,10,319,lOf 
Color 3f 
Deffill 3f 
P box 0,9,16,0f 
PbOX 313,9,319,Of 
Box 0,9,319,Of 
Line 80,0,80,9f 
Line 168,0,168,9f 
Line 240,0,240,9f 
Fullw If 





If lndicateur%=0! 

Gosub Dessin! 

Endif! 

Titlewî," GRAPHIQUE"! 

Ty:! 

Defmouse 3! 

On Menu! 

On Menu Gosub Sortir! 

Goto Ty! 

Procedure Sortir! 

Deftext 1,0,0,4! 

If Menu(0)=l! 

Gosub Aide! 

Endif! 

If Menu(0)=11! 

Gosub Curseur! 

Endif! 

If Menu(0)=10! 

Gosub Chgtrep! 

Endif! 

If Menu(0)-16 Or Menu(0)=12! 

Gosub Quitoucasse! 

Endif! 

If Menu(0)«13! 

Gosub Enregistrer! 

Endif! 

If Menu(0)*14! 

Gosub Charger! 

Endif! 

If Menu(0)-5! 

Gosub Fonction 1! 

Endif! 

If Menu(0)»6! 

Gosub Fonction2! 

Endif! 

If Menu(0)=15! 

Gosub Imprimer! 

Endif! 

If Menu(0)-20! 

Gosub Point! 

Endif! 

If Menu(0)=21! 

Gosub Droite! 

Endif! 

If Menu(0)=22! 

Gosub Cercle! 

Endif! 

If Menu(0)=»23! 

Gosub Vecteur! 

Endif! 

Menu Off! 

Return! 

Procedure Aide! 

Sget Ecran$! 

Titlew 2," Indications concernant les 
fonctions "! 

Fullw 2! 

Cls! 

For T%*1 To 66! 

Print Chr$(32)+Lgn$(T%)! 

If T%=27 Or T%=38! 


Deftext 3,0,0,4! 

Print " SUITE : cliquez"! 

Repeat! 

Mouse A,B,C! 

Until CoO! 

Deftext 1,0,0,4! 

Endif! 

If T%*63! 

Deftext 2,0,0,4! 

Endif! 

Next T%! 

Deftext 3,0,0,4! 

Print " FIN : cliquez"! 

Repeat! 

Mouse A,B,C! 

Until CoO! 

Deftext 1,0,0,4! 

Cls! 

Fullw 1! 

Sput Ecran$! 

Return! 

Procedure Chgtrep! 

Sget Ecran$! 

Fullw 2! 

Cls! 

Titlew 2," Changement de repère "! 

Text 3,20," Voulez vous changer :"! 

Text 10,40," 1: l’origine du repère"! 
Text 10,50," 2: la norme des vecteurs 
unitaires"! 

Vide$«String$(45," ")! 

Te 1 $«"Choix 1|Choix 2"! 

Alert 0,Vide$,0,Te1$,Retour%! 

If Retour%«1! 

Gosub Origine! 

Else! 

Gosub Vectunit! 

Endif! 

Return! 

Procedure Origine! 

Cls! 

Print! 

Print " Donnez,dans l’ancien repère 

:"! 

Print At(0,6)! 

Input " l'abscisse de l’origine : Xo 
= " Al! 

Deftext 1,0,0,4! 

Print! 

Input " l’ordonnée de l’origine : Yo 
= ",Bl! 

Cls! 

Deftext 1,0,0,4! 

Text 3,20,"Voulez vous supprimer 
l’ancien repère ?"! 

Alert 0,Vide$,0,"OUI | NON",Retour1%! 
Sput Ecran$! 

If Retour1%*l! 

Graphmode 1! 

Couleur%=0! 

Gosub Dessin! 
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Couleur%=11F 
Graphmode 21F 
EndiflF 

A=(A1*D*11)+A1F 
B4-B1*10*C)+B1f 
Gosub DessinIF 
ReturnIF 

Procedure VectunitIF 
CIsIF 

Text 3,15,"On pose :"1F 
Text 130,15,'T = k . I"1F 
Text 130,35,"J’ * k’. J"1F 
Text 3,55,'T et J’ étant les 
vecteurs unitaires"1F 
Text 3,65,"du nouveau repère."1F 
Restore Positions 
For T%=0 To 51F 
Read L1%,L2%1F 
Fleche1$(T%)=Fleche1$1F 
Sprite Fleche1$(T%),Ll%,L2%1F 
Next T%1F 

Alert 0,Vide$,1 ,"O.K",R1F 
CIsIF 

Text 3,30,"Définissez les reéls k et 
k’"1F 

Text 3,43,"( entiers ou décimaux ) :"1F 

Print At(0,15)1F 

Input " k = ",K11F 

Deftext 1,0,0,4lï 

Printlî 

PrintIF 

Input " k’= ",K21F 
Deftext 1,0,0,41F 
Fullw 11F 
CIsIF 

Sput Ecran$1F 
Graphmode 11F 
Couleur%=01F 
Gosub DessinIF 
Couleur%=11F 
Graphmode 21F 
C=C*K21F 
D=D*K11F 
Gosub DessinIF 
ReturnIF 

Procedure QuitoucasselF 
Me%=Menu(0)1F 
Clr Rep%1F 
If Me%=16lF 
Rep$="OU AIS | NON"1F 
Alert 1," |Voulez vous vràiment|tout 
laisser tomber ?|",2,Rep$,Rep%1F 
If Rep%=11F 
QuitIF 
EIselF 
Goto OuflF 
EndiflF 
EIselF 

Alert 1," |Voulez vous tout effacer 
?|",2,"OUI|NON",Rep%1F 
If Rep%=11F 


CIsIF 

A=1101F 

B=1301F 

C*11F 

D-11F 

Gosub DessinIF 
EndiflF 
EndiflF 
Ouf: U 
Retumlî 

Procedure CurseurIF 
Sget Ecran$1F 
Closew 21F 
Fullw 21F 
CIsIF 

Sput Ecran$1F 
Titlew 2," Curseur "1F 
Clr On%1F 

Text$="|Cliquez sur le 
bouton"+String$(5," ")1F 
Text$=Text$+"| gauche pour dessiner 
| droit pour sortir"1î 
"Alert 0,Text$,1 ,"O.K",Retour%1F 
Gosub PointmlF 
Color 21F 
Graphmode 31F 
HidemlF 

Mouse X%, Y%.TIF 
RepeatIF 
Xd%=X%1F 
Yd%=Y%U 
Mouse X%,Y%,K%1F 
Gosub DeplacementsIF 
If K%=11F 
If On%-01F 
On%=11F 
EIselF 
Clr On%1F 
EndiflF 
EndiflF 
If On%=lU 

Line Xd%,Yd%,X%,Y%1F 
EndiflF 

X1=(X%-A)/(D*11)1F 
Y1=-( V%-B)/(C * 10) 1F 
Y$*Left$(Str$(Y 1) ,4) 1F 
X$=Left$(Str$(X1),4)1F 
Text 50,160,X$1F 
Text 50,170,Y$U 
Gosub DeplacementsIF 
Text 50 , 160 ,X$1F 
Text 50,170,Y$1F 
Until K%*21F 
Gosub PointmlF 
Graphmode 21F 
Fullw 11F 
Sput Ecran$1F 
HidemlF 
ReturnIF 

Procedure Enregistrer^ 

Sget Ecran$1F 
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Brnove Xbios(2),Xbios(2)-32000,320001 
Titlew 2," Enregistrer "If 
Fullw 2 If 
CIsl 

Print At(0,10)l 
Enco:l 

Deftext 1,0,0,41 

Input " NOM DU GRAPHIQUE :",Nom$l 
If Nom$=""l 
Goto Encol 
Endifl 
CIsl 

Alert 1,"|Placez une disquette |dans 
le lecteur A.r\ 1 ,"O.K , \Ret%! 

Bsave Nom$,Xbios(2)-32000,320001 

Fullw 11 

CIsl 

Sput Ecran$! 

Returnl 

Procedure Chargerl 
Sget Ecran$! 
titlew 2," Charger "1 
Fullw 21 
CIsl 

Deftext 1,0,0,41 

Tre$ = "|Placez la disquette 
(correspondante dans]le lecteur A.|"l 
Alert 0,Tre$,2,"O.K|SORTIR",Ret%! 

If Ret%»2l 
Fullw 11 
Sput Ecran$! 

Goto Sortiel 
Endifl 

Print At(0,10)l 

Input " Nom du graphique à charger : 
",Nom$! 

CIsl 

If Exist(Nom$)=01 
Alert$="| Le graphique recherché 
n’est | pas sur cette disquette. |"! 
Alert 2,Alert$,1,"désolé",Ret%l 
Sput Ecran$! 

Goto Sortiel 
Endifl 
Fullw 11 

Bload Nom$,Xbios(2)l 
Sortie:! 

Returnl 

Procedure Imprimer! 

Hidem! 

Hardcopy! 

Showm! 

Returnl 

Procedure Fonction il 
Bidule$«" Fonctions simples "1 
Quelle%*»1! 

A$*Chr$(32)+Chr$(58)l 
Gosub Fonction! 

Returnl 

Procedure Fonction2! 

Bidule$=" Fonctions paramétriques "1 


Quelle%=3! 

A$*=" en fonction de m :"! 

Gosub Fonction! 

Returnl 

Procedure Fonction! 

Bmove XbiOS(2) ,320000,32000! 
lndicateur%=Quelle%! 

Titlew 2,Bidule$! 

Menu Off! 

Fullw 2! 

. Non:! 

CIsl 

Hidem! 

Print At(2,2)l 
Deftext 2,8,0,61 

Print " Combien de fonctions voulez 
vous"! 

Print! 

Input " définir à la fois ( 1 à 5 ) 
";Nf%! 

If Nf%<0 Or Nf%>5! 

Goto Non! 

Endifl 

Nf$(1)=T! 

Nf$ 2)="g"! 

Nf$(3)="h"! 

Nf$(4)="k"! 

Nf$(5)»"p"! 

Deftext 1,0,0,41 
For T%=0 To 13! 

Print! 

Next T%! 

If Nf%=1! 

Print " Il s’agit de la fonction 
f."l 

Goto Racou! 

Endifl 

Print " Il s’agit des fonctions :"! 

Print! 

For T%«1 To Nf%! 

Print ,Str$(T%)+"°) ";Nf$(T%)l 
Next T%! 

Racou:! 

Alert 0,Space$(40),1 ,"RETURN",Ret%! 
For T%=1 To Nt%! 

Recom:! 

CIsl 

Hidem! 

Deftext 2,0,0,61 
Text 3,20,Str$(T%)+"°) 
Définissez"+Chr$(32)+Nf$(T%)+A$! 
Sprite Fleche2$,103,661 
Deftext 1,0,0,61 
Print At(0,5)l 
Print Space$(7)+Nf$(T%)! 

Print At(10,6);l 
Input ": x ",Fonction$l 
If Len(Fonction$)=Ol 
Goto Recoml 
Endifl 

If Len(Fonction$)>801 



F$=î ET PUIS QUOI ENCORE !| |(80 
carctères maximum)"* 

Alert 1 ,F$, 1 ,"OK",Ret%* 

Goto Recom* 

Endif* 

Deftext 1,0,0,61F 

R$=“ |Certain que l’expression 
estlcorrecte ? (parenthèses,etc..)| "IF 
Alert 2,R$,1,"OUI|NON'\Ret%1F 
If Ret%=2* 

Goto RecomlF 
Endif* 

Foruîtion$(T%)=Chr$(67)+Nf$(T%)+" : y 
_ "+Fonction$* 

Fonction1$(T%)="Deffn ,, +Chr$(32)+Nf$(T%)+ 

"(x)="+Fonction$* 

Next T%1F 
Clr A$,AI$,BI$,CI$1F 
Deftext 2,0,0,61F 
CisU 

Print At( 1 ,3);Chr$(32)+Str$(T%)+"°) 
Sur quel intervalle [a;b] voulez"1F 
Al$=" vous etudier ces fonctions 

? n 1F 

Bl$=" Cliquez gauche s’il s’agit des 
domaines"1F 

For T%=1 To Nf%-11F , % ^ 

C l$«C l$+C hr$(68)+Nf $(T%)+C hr$( 32) * 
Next T%1F 

CI$=C l$+"et"+C hr$(32)+C hr$(68)+Nf $( Nf %) 1F 

If Nf%=11F , , , 4 . , 

Al$=" vous etudier la fonction f 

?"1F 

Bl$=" Cliquez gauche s’il s’agit du 
domaine"1F 
CI$="Df"1F 
EndiflF 

C l$=C l$+Chr$(46) 1F 
Print AI$1F 
Deftext 1,0,0,41F 
Print At(1,12)1F 
Print Bl$* 

Print " de définition M ’CI$1F 
Print " Sinon cliquez sur le bouton 
droit."1F 

X1=(0-A)/(D*11)* 

X2=(320-A)/(D*11)* 

Mouse:1F 
Mouse X.Y.Z1F 
If Z=2* 

Goto TantmieuxIF 
EndiflF 
If Z=11F 

Goto TantpisIF 
EndiflF 

Goto MouselF 
Tantmieux:1F 
PrintIF 

Input " a*",M11F 


PrintIF 

Deftext 1,0,0,41F 
Input " b-",N11F 

Goto TantboflF 
Tantpis:1F 
M1=X11F 
N1=X21F 
Tantbof:1F 
If M1<X11F 
M1=X11F 
EndiflF 
If N1>X21F 
N1=X21F 
EndiflF 
If M1>X21F 
M1-X21F 
EndiflF 
If N1<X11F 
N1=X11F 
EndiflF 

CIsIF 

Text^5,2(X" C ATI O N S A SUIVRE 1 '* 

Deftext 1,0,0,41F 
Print At(0,5)1F 

Print " Laissez Ja disquette 

originale dans le lecteur."* 

Print " L’écran va s’effacer."* 

P rint ^ 

Pressez alors F2. * 
Attendez . Pressez 


Attendez . Pressez SHIFT 


Print " 1°) 

Print " 2°) 

RETURN."* 

Print " 3°) 

et F10 simultanément."* 

Deftext 2,0,0,4* 

Print At(0,26)* 

Print " Suivez PARFAITEMENT ces 
indications."* , 

Print " Ùtilisez UNIQUEMENT les 

touches indiquées."* 

Bmove Varptr(MI) ,352000,6* 

Bmove Varptr(NI),352007,6* 

Bmove Varptri A) ,352014,6* 

Bmove Varptri B) ,352021,6* 

Bmove VarptriC) ,352028,6* 

Bmove Varptr(D) ,352035,6* 

Bmove Varptr(lndicateur%) ,352042,6* 
Bmove Varptr(Nf%) ,352049,6* 

For T%=1 To Nf%* 
Fo$=Fonction$(T%)+"cool"* 

Erroe % _ 

Varptr(Fo$) ,352050+(T%*100) ,99* 

Next T%* 

Open "r",#1,".lst"* 

For T%=1 To Nf%* 

Print #1 ;Fonction1$(T%)* 

Next T%* 

Close* _ 

Alert 0,Space$(42) , 0 ,"OK",Ret%* 
Gosub Musique* 

Cls* 
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Setcolor 0,0! 

Sget lmage$! 

Setcolor 2,0! 

Print At(1,1)’"m ="’M! 

Edit! 

Endif! 

Return! 

If Q%=2! 

Procedure Traçage! 

M=M-Pas! 

Defmouse String$(74,Mki$(0))! 

Sput Ecran$! 

Gosub Pourles2! 

Gosub Pouries2! 

Gosub Legende! 

Sget lmage$! 

Gosub Retourner! 

Print At(1,1)’" m = "’M! 

Return! 

Endif! 

Procedure Trace! 

If Q%=8! 

Titlew 1," INDICATIONS "1F 

Sget Foutoire$! 

Fullw 11F 

Sput lmage$! 

HidemIT 

Sget Ecran$! 

Print At(4,6)1F 

Sput Foutoire$! 

Deftext 1,0,0,61F 

Endif! 

Input " 1°) Quelle valeur initiale de 

Until ZoO! 

m ";Mi1F 

Sput lmage$! 

Deftext 1,0,0,61F 

Gosub Retourner! 

PrintIF 

Return! 

Input " 2°) Quel pas d’incrémentation 

Procedure Nvpas! 

";Pas1F 

Inc R%! 

Deftext 2,0,0,41F 

If R%ol! 

CIsIF 

Goto Cond! 

Print At(2,10)1F 

Endif! 

Print " Pressez SHIFT (droite) pour 

Sget Ecr$! 

augmenter la valeur de m"1F 

Deffill 0! 

Print " Pressez SHIFT (gauche) pour la 

P box 0,20,230,0V 

diminuer."1F 

Deftext 2,0,0,6V 

Print " Pressez CONTROL pour changer 

Print At( 1,1)! 

de pas."1F 

Input " Nouvelle valeur du pas ";Pas! 

Print " Pressez ALTERNATE pour 

Deftext 1,8,0,4! 

tracer."! 

Sput Ecr$! 

Print " Cliquez pour sortir."! 

Cond:! 

Print " Cliquez pour commencer."! 

If R%=3! 

Repeat! 

Clr R%! 

Mouse X,Y,Z! 

Endif! 

Until Z<>0! 

Return! 

Cls! 

Procedure Pourles2! 

Bmove 320000,XbiOS(2),32000V 

For Fois%=1 To Nf%! 

Sget Ecran$! 

Color 3+Fois%! 

Defmouse String$(74,Mki$(0))! 

Clr lnd%! 

Clr R%! 

For T=M1 To NI Step 0.1! 

M=Mi! 

Clr ln%! 

Gosub Pourles2! 

P1=X! 

Gosub Legende! 

P2=Y! 

Defmouse String$(74,Mki$(0))! 

X=(T*(D*11))+A! 

Sget lmage$! 

On Err Gosub Erreur! 

Deftext 1,8,0,4V 

On Fois% Gosub F,G,H,K,P! 

Print At(1,1)’"m ="’M! 

Y=-(U*(C*10))+B! 

Repeat! 

If Y>=-300 And Y<=500! 

Gemsys 79! 

If ln%=0! 

Q%=Dpeek(Gintout+8)! 

Mouse X,Y,Z! 

If lnd%=0! 

P1=X! 

If Q%=4! 

P2=Y! 

Gosub Nvpas! 

Ind%=1! 

Endif! 

Endif! 

If Q%=1! 

Line X,Y,P1,P2! 

M=M+Pas! 

Endif! 

Sput Ecran$! 

Endif! 

Gosub Pourles2! 

Next T! 
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Fullw If 
Clr lnd%f 
Next Fois%f 
Returnf 
Procedure Ff 
U=Fn F(T)f 
Returnf 
Procedure Gf 
U=Fn G(T)f 
Returnf 
Procedure Hf 
U=Fn H(T)f 
Returnf 
Procedure Kf 
U=Fn K(T)f 
Returnf 
Procedure Pf 
U=Fn P(T)f 
Returnf 

Procedure Erreurf 
T=T+0.1f 
ln%=1f 

Résumé Nextf 
Returnf' 

Procedure Retournerf 
Bmove Xbios(2),320000,32000f 
lndicateur%=2f 
Bmove Varptr( Ml),352000,6f 
Bmove Varptn NI),352007,6f 
Bmove Varptn A),352014,6f 
Bmove Varptn B),352021,6f 
Bmove Varptn C),352028,6f 
Bmove Varptn D),352035,6f 
Bmove Varptr(lndicateur%),352042,6f 
Bmove Varptr(Nf%),352049,6f 
Menu Offf 
Pug:f 

If Exist("math.bas")= 0 f 
Ao$="|PLACEZ LA DISQUETTE 
IORIGINALE DANS LE LECTEUR l"f 
Alert 0,Ao$,1 ,"OK",Ret%f 
Goto Pugf 
Endiff 

Chain "MATH"f 
Returnf 

Procedure Dessinf 
If C>0f 
Sn1%=B+2f 
Elsef 

Sn1%=B-2f 
Endiff 
If D>0f 
Sn2%=A-2f 
Elsef 

Sn2%=A+2f 

Endiff 

Color Couleur%f 
Line -6000,B,6000,Bf 
Line A,-6000,A,6000f 
Line 315,B-2,317,Bf 
Line 315,B+2,317,Bf 


Line A-2,2,A,0f 
Line A+2,2,A,0f 
Color Couleur%*2f 
Line A,B,A,B+(C*-10)f 
Line A,B,A+(D*11),Bf 
If CoOf 

Line A,B+(C*-10),A-2,Sn1%+(C*-10)f 
Line A,B+(C*-10),A+2,Sn1%+(C*-10)f 
Endiff 
If D<>0f 

Line A+(D*11),B,Sn2%+(D*11),B-2f 
Line A+(D*11),B,Sn2%+(D*11),B+2f 
Endiff 
Returnf 

Procedure Legendef 
Sget R$f 
Deffill 0f 

For T%=1 To Nf%f 
Clr Savoir%f 
For Tp%=1 To Nf%f 
I f 

Len( Fonction$(T%))>=Len( Fonction$(T p%)) f 
Inc Savoir%f 
Endiff 

If Savoir%=Nf%f 
K%=Len(Fonction$(T%))f 
Endiff 
Next Tp%f 
Next T%f 

Pbox -1,(Nf%*7)+15,19+(K%*6),7f 
Color If 

Box -1,(Nf%*7)+15,19+(K%*6),7f 
Deftext l,0,0,4f 
For T%=1 To Nf%f 
Deffill 3+T%f 

Pbox 4,(T%*7)+10,7,(T%*7)-4+10f 
Text 16,(T%*7)+9,Fonction$(T%)f 
Next T%f 

Alert 0,Space$(4),0,"OK",Ret%f 
Sput R$f 

Returnf 

Procedure Pointf 
Sget Ecran$f 

Titlew 2," Point de coordonnées (x;y) 

"f 

Fullw 2f 
Hidemf 
Repl:f 
Clsf 

Print At(0,5)f 

Input " Nom du point (lettre de A Z) 
",Np$f 

Deftext 1,0,0,4f 
If Len(Np$)<>1f 
Goto Repif 
Endiff 

N%=Asc(Np$)f 

If N%>=65 And N%=<90 Or N%>=97 And 
N%<=122f 

Goto Poursuitef 
Elsef 


\ 
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Goto Repi If 
Endiflf 
Poursuite:^ 

Print^f 

Print " Définissez les coordonées 
(x;y) de"’Np$+Chr$(32)+Chr$(58)1f 
Printlf 

Input " x = ",Xp1f 

Printlf 

Deftext 1,0,0,41f 
Input " y * ",Yp1f 

Deftext 1,0,0,411 
X%=(Xp*(D*11))+A1f 
Y%=-(Yp*(C*10))+B1f 
Fullw 11f 
Sput Ecran$1f 
Gosub Couleurslf 
Text X%+2,Y%-4,Np$1f 
For T%=0 To 2001ï 
Color Cool%1f 
Gosub Deplacementslf 
Color Olf 

Gosub Deplacementslf 
Next T%1f 
Sput Ecran$f 
Color Cool%1f 
Line X%-2,Y%,X%+2,Y%1f 
Line X%,Y%-2,X%,Y%+21f 
Text X%+2,Y%-4,Np$1f 
G$=" I Voici le point 
"+Np$+ ,, ("+Str$(Xp)+Chr$(59)+Str$(Yp)+ H ). 

Alert 0,G$,1,"OK",Ret%1f 
Returnlf 

Procedure Droitelf 
Sget Ecran$1f 

Titlew 2," Droite : définissez son 
équation "If 
Fullw 2 If 
Rep3:1f 
Clslf 
Hidemlf 


Print At(0,5)1f 


Print " Toute droite a une équation 
qui peut s’écrire sous"1f 

Print " la forme :"1t 

Deftext 2,0,0,4 If 

Printlf 

Printlf 

Print " 1 ) y = ax + b s’il 
d’une droite quelconque.'^ 

Printlf 

s’agit 

Print "2) y = m s’il 

d’une droite horizontale"^ 

Printlf 

s’agit 

Print "3) x = n s’il 

d’une droite verticale."1f 

Deftext 1,0,0,4 If 

Print At(0,23)1f 

s’agit 

Input " Votre choix (1-2-3) 
",Choix%1f 

• 


If Choix%<l Or Choix%>3lf 
Alert 1,"| Répondez correctement ! I 
|",1,"CRETIN",Ret%1f 
Goto Rep31f 
Endiflf 

X5=(0-A)/( D * 11 ) If 
X6=(320-A)/( D * 11 ) If 
OnChoix% Gosub 
Quelconque, Horizontal, Verticallf 
Eq$="| Voici la droite d’équation 
|"+Eq$1f 

Alert 0,Eq$,1 ,"OK",Ret%1f 
Returnlf 

Procedure Quelconques 
Clslf 

Print At(0,5)S 
Deftext 2,8,0,4S 

Print " Doite d’équation y = ax + b 

:"S 

Deftext 1,0,0,41* 

Print At(0,10)1f 

Print " Définissez a et b :"1f 

Printlf 

Input " a = ",AI1f 
Printlf 

Deftext l,0,0,4lf 
Input " b = ",BI1f 
Fullw 1S 
Clslf 

Sput Ecran$S 
Deffn D(X)=(AI*X)+BI1f 
Clr lnd%1f 
Gosub CouleursS 
Color Cool%S 
For T=X5 To X6 Step 0.1 If 
P1=XS 
P2=YS 

X=(T*(D*11))+A1f 
U=Fn D(T)f 
Y=-(U*(C*10))+B1f 
If lnd%=0S 
P1=XS 
P2=YS 
lnd%=1S 
Endiflf 

LineX,Y,Pl,P2f 
Next TS 

Eql $=Str$( Al)+"x"1f 
E q2$="+"+str$( BI) If 
If Sgn(BI)—1* 

Eq2$=Str$(BI)S 
Endiflf 
If Bl=01f 
Eq2$=""1f 
Endiflf 
If AI=0S 
Eql$=""1f 
Endiflf 
If AI-1S 
Eq1$="x"1f 
Endiflf 
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If Al=-1f 
Eql$="-X"f 
Endiff 

Eq$=" y = "+Eql$+Eq2$f 
Returnf 

Procedure Horizontal^ 

Clsf 

Deftext 2,8,0,4f 
Print At(0,5)f 

Print " Droite horizontale d’equation 
y = m"f 

Deftext 1,0,0,411 

Print At(0,10)f 

Input " Entrez m : m = ",Mf 

Clsf 

Fullw If 

Sput Ecran$f 

Gosub Couleursf 

Color Cool%f 

0,-(M*(C*10))+B,320,-(M*(C*10))+B1î 

Eq$=" y = "+Str$(M)f 
Returnf 

Procedure Verticalf 
Clsf 

Deftext 2,8,0,4f 
Print At(0,5)f 

Print " Droite verticale d’equation x 
= n :"1f 

Deftext 1,0,0,4f 

Print At(0,10)f 

Input " Entrez n : n = ",Nf 

Clsf 

Fullw If 

Sput Ecran$f 

Gosub Couleursf 

Color Cool%f 

Line (N*(D*11))+A,200, (N*(D*11))+A,01f 
Eq$=" x = "+Str$(N)K 
Returnf 

Procedure Cerclef 
Sget Ecran$f 

Titlew 2," Cercle de centre C et 
rayon r "f 
Fullw 2f 
Hidemf 
Rep2:f 
Clsf 

Print At(0,5)f , # 

Input " Nom du centre du cercle ( 
lettre de A à Z ) : ",Nc$f 
Deftext 1,0,0,4f 
If Len(Nc$)o1f 
Goto Rep2f 
Endiff 

N%=Asc(Nc$)f 

If N%>=65 And N%=<90 Or N%>=97 And 
N%<=122f 

Goto Poursf 
Elsef 

Goto Rep2f 


■ntrez n : n = ",Nf 


Endiff 

Pours.f 

Printf % , 

Print " Coordonnées (x’;y’) du point 
"+Nc$+Chr$(32)+Chr$(58)f 
Printf 

Input " x’ = ",Xcf 

Deftext l,0,0,4f 
Printf 

Input " y’ = ",Ycf 

Deftext 1,0,0,4f 

X%=(Xc*(D*11))+Af 

Y%=-(Yc*(C*10))+Bf 

Printft 

Printf 

Input " Valeur du rayon r du cercle : 
r = ",Rf 

Deftext 1,0,0,4f 
Fullw If 
Clsf 

Sput Ecran$f 
Gosub Couleursf 
Color Cool%f 
Line X%-2,Y%,X%+2,Y%f 
Line X%,Y%-2,X%,Y%+2f 
Text X%+2,Y%-4,Nc$f 
For T%=15 To Cool% Step -If 
Sound 1,15,T%,3,5f 
Color T%f 

Ellipse X%,Y%,R*D*11,R*C*10f 
Wave 0,0f 
Next T%f 

G$=" | Voici le cercle de centre 


G$=G$+Chr$(32)+Nc$+"("+Str$(Xc)+Chr$(59) 

+Str$(Yc)+")"f 

G$=Gé+" et de rayon r="+Str$(R)+". 

|"f 

Alert 0 ,G$, 1 ,"OK",Ret%f 
Returnf 

Procedure Vecteurf 
Sget Ecran$f 
Titlew 2," Vecteur "f 
Fullw 2f 
Clsf 

Deftext 1,0,0,4f 
Print At(0,5)f 

Print " Le vecteur est représente par 
un bipoint."f 
Printf 

For T%=1 To 2f 
Hidemf 
Deftext 1,0,0,4f 
Printf 
Rep4:f 
If T%=1f 

Input " Nom du premier point ( 
lettre de A à Z ) : ",Nv$(1)f 
Elsef 
Abruti :f 
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Input " Nom du second point ( 
lettre de A à Z ) : ",Nv$(2)1f 
If Nv$(2)=Nv$(1)1f 
Alert 1 ,"| Pas le meme point ! | 
|", 1 ,"ABRUTI",Ret%1F 
Hidemlf 
Goto Abrutit 
Endiflf 
Endiflf 

Deftext 1,0,0,41F 
If Len(Nv$(T%))<>11f 
Goto Rep41f 
Endiflf 

N%=Asc(Nv$(T%))1f 
If N%>=65 And N%=<90 Or N%>=97 And 
N%<=122lf 

Goto PoursuU 
Elself 

Goto Rep4f 
Endiflf 
Poursuit 
Printf 

Print " Les coordonées du point 
"+Nv$(T%)+" :"1f 
Printnf 

Print Chr$(32)+"X"+Nv$(T%)+" =",* 

Input " ",X9(T%)1f 
Printlf 

Deftext 1,0,0,4 If 

Print Chr$(32)+"Y"+Nv$(T%)+" *",f 
Input " ",Y9(T%)1f 
Deftext 2,0,0,4 If 
X8(T%)=(X9(T%)*(D*11))+A1f 
Y8(T%)=-(Y9(T%)*(C*10))+B1f 
Next T%1f 
Clslf 

Fl=X9(2)-X9(1)1f 
F2=Y9(2)-Y9(1)1f 
Norme=Sqr((Fr2)+(F2~2))1f 
Norme$=Left$(Str$(IMorme) ,5) If 
Print At(0,3)1f 

R$=" 1°) Coordonnées du vecteur 


"+Nv$(1)+Nv$(2)+ h :"1f 
P$=T , +Str$(F1)+";"+Str$(F2)+ ,, )"1f 
Print R$+Space$(5)+P$1f 
Print At(0,9)1f 

R$=" 2°) Norme du vecteur 
"+Nv$(1)+Nv$(2)+Space$(7)+Chr$(58)1f 

P$=Chr$(124)+Chr$(124)+Nv$(1)+Nv$(2)+Chr 
$( 124)+C hr$( 124)+" = "+Norme$1f 
Print R$+Space$(5)+P$1f 
Flec$=Flechel$1f 
Fles$=Fleche1$1f 
Flech$»Flechel$1f 
Sprite Flec$,l34,73lf 
Sprite Fles$,170,371f . 

Sprite Flech$,236,73lf 
Alert 0,Space$(200),1,"OK",Ret%1f 
Fullw 11f 
Sput Ecran$1f 


Gosub Couleurslf 
For T%=1 To 2lf 
X%=X8(T%)1f 
Y%=Y8(T%)1f 
Deftext Cool%+2,0,0,4lf 
Text X%+2, Y%-4 ,N v$(T%) If 
For Tt%=0 To 200lf 
Color Cool%1f 
Gosub Deplacementslf 
Color Olf 

Gosub Deplacementslf 
Next Tt%1f 
Sput Ecran$1f 
Color Cool%+21f 
Text X%+2,Y%-4,Nv$(T%)1f 
Line X%-2,Y%,X%+2,Y%4 
Line X%,Y%-2,X%,Y%+21f 
Sget Ecran$1f 
Next T%1f 
Color Cool%1f 

Line X8(1),Y8{1),X8(2),Y8(2)1f 
Sget Ecran$1f 
Gosub Musiquelf 
A$="Voici le vecteur 
r epr ésenté"+S pace$( 100)+C hr$( 124) If 
A$=A$+"par le bipoint 
("+Nv$(1)+Chr$(59)+Nv$(2)+").|"1f 
A$=À$+"(servez vous de la souris|pour 
positionner le nom) ."If 
Alert 0,A$,1,"OK",Ret%1f 
Clr Pair%1f 
Repeatlf 

Mouse Posl%,Pos2%,Bout%1f 
Inc Pair%1f 
If Pair%=71f 
Clr Pair%1f 
Sput Ecran$1f 
Endiflf 

If Pos2%<=10 Or Pos2%>200lf 
Pos2%=10lf 
Endiflf 

If Pos2%>174 And Pos2%<2001f 
Pos2%»1741f 
Endiflf 
Deffill Olf 
Pbox 

Posl%-4,Pos2%+3,Posl%+15,Pos2%-101f 
Color Cool%+21f 
Box 

Pos1%-4,Pos2%+3,Pos1%+15,Pos2%-101f 
Deftext Cool%,0,0,4lf 
Text Posl%,Pos2%,Nv$(1)+Nv$(2)1ï 
FI$=Flechel$1f 

Sprite FI$,Pos1%+1 ,Pos2%+151f 
Until Bout%<>01f 
Sget Ecran$1f 
For T%=0 To 501f 
Sound 1,15, Abs(T%/5) ,3,21f 
Ap%=Ran dom(200) If 
Bp%=Random(l00)1f 
Api%*Random(2)1f 




Bpi%=Random(2)1ï 
If Api%=11F 
Ap%=-Ap%1ï 
EndiflF 
If Bpi%=11F 
Bp%=-Bp%1F 
EndiflF 

Color Cool%1F 
Wave 0,01F 

Line , „ „ 

X8(1)+Ap%,Y8(1)+Bp%/8(2)+Ap%,Y8(2)+Bp%f 
Pause 5 If 
Sput Ecran$1ï 
Deftext 1,0,0,41F 
Next T%1f 
Returnlf 

Procedure Pointmlf 

Text 1 , 145 ,"Coordonnées du point M :"1f 
Text 10 , 160 ,"Xm ="1f 
Text 10,170,"Ym ="1f 
Returnlf 

Procedure Deplacementslf 
Line A,Y%,X%,Y%1f 
Line X%,B,X%,Y%1f 
Returnlf 

Procedure Musiquelf 
For Tr%=1 To 151f 
For Rt%=16 To 0 Step -21f 
Sound 1, Rt%, N ot%(T r%) ,5,11f 
Next Rt%1f 
Wave 0,01f 
Next Tr%1F 
Returnlf 

Procedure Couleurslf 
D$="| Quelle couleur de traçage ? |"1f 
Alert 0 ,D$, 0 ,"NOIR| ROUGE| BLEU",Cool%1f 
Hidemlf 
Returnlf 
Menus:1f 

Data AIDE, à propos des fonctions , ,1F 
Data FONCTIONS, Fonctions simples , 
Fonctions avec paramètres , ,1f 
Data OPTIONS, Nouveau repère , Curseur , 
Tout effacerlf 

Data Enregistrer, Charger, Imprimer, 
Quitter, ,1F ^ 

Data FIGURES, Point, Droite, Cercle, 
Vecteur, ,,1f 

Lutinl :1f „ 

Data 0,16,0,32760,0,16,0,0,0,0,0,0,0,01F 
Data 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 01 ? 

Lutin2:1F 

Data 

0,32772,0,32770,0,65535,0,32770,0,32772, 

o!o,0,0lf 

Data _ 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,011 

Position: If 

Data _ 

129,30,130,49,194,30,196,49,3,69,52,69lf 


Musique:1f 

Data 

8 ,12,12,12,10,8,3,3,1,12,12,12,10,8,3lf 
Cara:1f 

Data _ 

77,65,84,72,69,77,65,84,73,81,85,69,83lf 

Texte: If 

Data , ,1°) UTILITÉ,,, ,1f 

Data L’option FONCTIONS vous permet 

d’obtenir leslf 

Data représentations graphiques :, ,1F 
Data de fonctions quelconques., ,1F 
Data ' de fonctions dépendant d’un 
paramétré m dont vouslf 

Data ferez varier la valeur.Vous 

pourrez donc observerlf 

Data la forme des courbes en fonction 

de ce paramètre.,,, ,1F 

Data 2°) PRÉCAUTIONS OBLIGATOIRES,,, 

,1F 

Data Vous devrez absolument :, 
utiliser uniquement les touches 
indiquées., ,1F 

Data vérifier la syntaxe de 
l’expression que vous , entrerez.C est 
à dire : ,1F 

Data 1) fermer toutes les 
parenthèses.,1î 

Data 2) entrer uniquement chiffres et 

parenthèseslf . 4 . 

Data le caractère x ( et m ) et les 

symboles : ,1F 
Data + et - 

addition soustractionIF 
Data * et / 

produit quotientIF 

Data ~n a la 


puissance nlf 
Data sqr( ) 
carréelf 

Data cos( ) sin( ) t a n ( 
cosinus sinus tangentelF 
Data abs( ) 
absolue,1î 

Data options :, , atn( ) 
arctangente(radians)1F 
Data e x p ( ) 
exposante 

Data int( ) frac( ) 
entière/décimalelf 
Data I o g ( ) 
logarithme naturels 
Data I o g 1 0 ( ) 
logarithme décimallï 
Data p i 

constante précise de pilT 

Data rnd 

aléatoire (0 à 1),, ,1F 

Data Pour les fonctions 

trigonomètriques la machinelF 

Data travaille en degrés., ,1F 


racine 


valeur 


partie 
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Data RESPECTEZ CES DEUX REGLES ! A 

Data UNE SEULE ERREUR ET VOUS RISQUEZ DE 

PLANTEZ LEU 

Dala PROGRAMME.VOUS DEVREZ RECHARGER A 



ATAR/ST 

QUADRIS 

Quadris n’est rien d’autre qu’une adaptation du très célèbre Tetris. 

Des briques de formes diverses tombent 

du ciel. A vous de les diriger dans leur chute pour qu’elles 

s’assemblent en une pile compacte. Génial! 

ON BREAK GOSUB br 1 

N EXT i% 1 

RESERVE FRE(0)-32767 S 

i=ASC(INKEY$) 1 

a=HIMEM 1 

UNTIL i>48 AND i<57 1 

log=XBIOS(3) H 

SETCOLOR 15.7,7,0 1 

VSETCOLOR 0,0,0,0 1 

diff%=i-48 1 

VSETCOLOR 1,7,0.7 1 

CLR i 1 

VSETCOLOR 3,7,0,7 1 

CLS 1 

VOID XBIOS(5,L:-l,L:-1,0)1 

@init 1 

H IDEM 1 

nllejorme: 1 

debut.prg: U 

REPEAT 1 

frme%=INT(RND*7)+l H 

coul%-INT(RND*4M 1 

UNTIL INKEY$=""1 

xo%=8 1 

delog 1 

y o=l 1 

CLS1 

orient%-l 1 

DIM x%(7,4,4).y%(7,4,4) 1 

bcle: 1 

DIM yl%(7.4.4) 1 

i$=INKEY$ 1 

DIM a%( 17,23)1 

FOR n%=l TO 4 1 

DIM b%( 17,23) 1 

PRINT ATI 1 l+xo%+x%(frme%,orient 0 /. 

DIM c%( 17,23) 1 

,n%).yo+y%(frme%,orient%,n%));" " 1 

DIM d%( 17,23) 1 

N EXT n% 1 

DIM lig d%(4) H 

IF i$="5" 1 

score%=0 1 

orient%=orient%+11 

‘ présentation 1 

IF orient%>4 1 

DEFTEXT 1,1,0.26 11 

orient%= 11 

TEXT 107,80,"Quadris" U 

ENDIF1 

PRINT AT(3,15);"Entrez le 

^collision 1 

niveau de difficulté 

IF colli%=l 1 

(là8)"1 

orient%=orient%-l 1 

aff K 

IF orient%=0 1 

REPEAT 1 

orient%=4 1 

VSYNCH 

ENDIF1 

ADDk,0.011 

ENDIF1 

FOR i%=l TO 

ENDIF1 

ABS(COS(k)*ABS(SIN (k)*700)) 1 

IF i$="4" 1 

N EXT i% 1 

xs%=xo% 1 v 

FOR i%-0 TO 7 1 

xo%=xo%-l 1 

SETCOLOR 0,i%,0,0 1 

(©collision 1 

SETCOLOR 15,i%,i%,i% 1 

IF colli%=l 1 

N EXT i% 1 

xo%=xs% 1 

FOR i%-6 DOWNTO 11 

ENDIF 1 

SETCOLOR 0.i%,i%,0 1 

ENDIF 1 
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f 

I 


IF i$="6" 1 

XS%=XO% 1 

xo%=xo%+1 1 
(©collision 1 
IF colli%=l 1 
xo%=xs% 1 
ENDIF 1 
ENDIF 1 
IF i$="2" 1 
chute: 1 
ys=yo 1 
yo=yo+l1 
(©collision 1 
IF colli%=*l 1 
GOTO tombe 1 
ENDIF 1 
GOTO chute 1 
ENDIF 1 

* detecte fin de la chute 1 
ys=yo 1 
yo=yo+yv 1 
yo=yo+(diff%/8) 1 
yv»yo-INT(yo) 1 
yo=INT(yo) 1 
' PRINT yo,(diff%/8) 1 
(©collision 1 
tombe: 1 
IF colli%=11 
IF INT(yo)=2 1 
GOTO game_over 1 
ENDIF 1 
yo=ys 1 

FOR n%« 1 TO 4 1 
xa%=8*( 10+xo%+x%(f rme%, 
orient%,n°/o))+l 1 

y a%=8*(y o+y% (f r me%, 
orient%,n%)-l)+l 1 
DEFFILL coul% 1 
PBOX xa%,ya%,xa%+6,ya%+6 1 
a% (xo%+x% (f r me% ,or ient%, 
n%),yo+y%(f rme%,orient%,n%))= 11 
c% ( x 0 %+x% ( f r m e%, o r i e n t%, n% ) 

, y o+y% ( f r m e%, o r i e n t%, n% ) )=c o u 1% 1 
NEXT n% 1 
aff 1 

n_lig%=0 1 
FOR n%=lT0 4 1 
IF y 1 % ( f r m e%, o r i e n t %, n % ) < > 5 1 
y l%=y o+y 1% (f rme% ,or ient% ,n% ) 1 
lig%=0 i 

FOR m%=4 TO 13 1 
lig%=lig%+a%(m%,y 1%) 1 
N EXT m% 1 
IF lig%= 10 1 

n_lig%=njig%+l 1 

1 i g_d% ( n_l i g% )=y 1% 1 
ENDIF 1 
ENDIF 1 
NEXT n% 1 

’ ligne formée: on supprime 1 
IF n_lig%<>0 1 


yb%=23 1 

FOR n%=23 TO 1STEP-11 
saut%=0 1 

FOR m%»l TO n_lig% 1 
IF n%=lig_d%(m%) 1 
saut%=l 1 
ENDIF 1 
N EXT m% 1 
IF saut%=0 1 
FOR 1%-lTO 171 
b% (1% ,y b% )=a% (1% ,n% ) 1 
d% (1% ,yb% )=c% (l%,n% ) 1 
NEXT 1% 1 
yb%=yb%-11 
ENDIF 1 
NEXT n% 1 
SW AP a%(),b%() 1 
SW AP c%(),d%() 1 
FOR n%-l TO 20 1 
FOR m%=4 TO 131 
IF a%(m%,n%M 1 
xa%-8*(10+m%)+l 1 
ya%-8*(n%-l)+l 1 
DEFFILL c%(m%,n%) 1 
PBOX xa%,ya%,xa%+6,ya%+6 1 
ELSE1 

PRINT AT(1 l+m%,n%);” "1 
ENDIF 1 
NEXT m% 1 
NEXT n% 1 
aff 1 

score%=score%+n_lig% 1 

PRINT AT(15,22);"Lignes: M :score%;'' 

"1 

ENDIF 1 

GOTO nllejorme 1 
ENDIF 1 

’ VOID XBIOS(36) 1 
FOR n%-l TO 4 1 
xa%=8*( 10+xo%+x% (f r me%, 
orient%,n%))+l 1 

ya%=8*(yo+y%(frme%,orient%, 
n%)-l)+l 1 
DEFFILL coul% 1 
PBOX xa%,ya%,xa%+6,ya%+6 1 
NEXT n% 1 
aff 1 

’ PAUSE diff% 1 
GOTO bcle 1 

1 

game_over: 1 

PRINT CHR$(27);"p" 1 

PRINT AT(14,10);"GAMEOVER " 1 

PRINT CHR$(27);"q" 1 

aff 1 

VOID INP(2) 1 
ERASE x%() 1 
ERASE y%() 1 
ERASE yl%() 1 
ERASE a%() 1 
ERASE b%() 1 
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ERASE c%()1 
ERASE d%()1 
ERASE lig_d%()1 
GOTO debut_prg 1 

1 

PROCEDURE collision 1 
colli%«0 1 
FOR n%« 1 TO 4 1 
IF a%(xo%+x%(frme%,orient%, 
n%),yo+y%(fr me%,orient%,n%))“ 11 
colli%-11 
ENDIF1 
NEXT n%1 
RETURN 1 
’1 

PROCEDURE init 1 
FOR n%-l TO 20 1 
a%(0,n%)= 11 
a%( I,n%)= 11 
a%(2,n%M 1 
a%(3,n%)-l 1 
a%(14,n%Ml 
a%(15,n%)=l 1 
a%(16,n%)-l 1 
a%(17,n%)»11 
NEXTn% 1 
FOR n%*0 TO 17 1 
a%(n%,2lM 1 
a%(n%,22M 1 
a%(n%,23)=l 5 
NEXT n%1 
yi-11 
bu: 1 

FOR n%-lT0 47 1 
DRAW O.INT(yi) TO 319,INT(yi) 1 
yi-yi* 1.12 1 
NEXT n% 1 
FOR n%=l TO 20 1 
PRINT AT(15,n%);SPACE$(10) 1 
NEXT n% 1 

DRAW 111,0 TO 111,161 TO 192,161 TO 
192,01 

PRINT AT(15,22);"Lignes:0" 1 
aff 1 

RESTORE morphologies 1 
FOR n%-l TO 7 1 
FOR m%=lTO 41 
FOR 1%-lTO 4 1 
R E A Ix% (n% ,m% ,1% ),y% (n%,m%,l 0 /d 
NEXT 1% 1 
FOR 1%“1 TO 4 1 
READ yl%(n%,m%,l%) 1 
NEXT 1% 1 
NEXT m% 1 
NEXT n% 1 
RETURN 1 
morphologies: 1 

* programmation des formes T 

* carré-1 

* datas xl,yl,x2,y2,x3,y3,x4,y4, 
yll,yl2,yl3,yl4 1 


DATA 0,0,1,0,0,1,1,1,0,1,5,51 
DATA 0,0,1,0,0,1,1,1,0,1,5,51 
DATA 0,0,1,0,0,1,1,1,0,1,5,51 
DATA 0,0,1,0,0,1,1,1,0,1,5,51 

’ manivelle # 1-1 

DATA 0,0,1,0,0,1,-1,1,0,1,5,51 
DATA 0,0,0,-1,1,0,1,1,0,1,-1,51 
DATA 0,0,-1,0,0,-1,1,-1,0,-1,5,5 1 
DATA 0,0,-1,0,-1,-1,0,1,0,1,-1,51 

' manivelle # 2-1 

DATA 0,0,-1,0,0,1,1,1,0,1,5, 51 
DATA 0,0,0,1,1,0,1,-1,0,1,-1,51 
DATA 0,0,-1,-1,0,-1,1,0,0,-1,5,5 1 
DATA 0,0,0,-1,-1,0,-1,1,0,-1,1,5 1 

’ équerre # 1-1 

DATA 0,0,-10,1,0,1,1,0,1,5,51 
DATA 0,0,0,1,0,-1,1,-1,0,1,-1,51 
DATA 0,0,-1,0,1,0,-1,-1,0,-1,5,5 1 
DATA 0,0,0,1,0,-1,-1,1,0,1,-1,51 

’ équerre # 2-1 

DATA 0,0,-1,0,1,0,-1,1,0,1,5,51 
DATA 0,0,0,-1,0,1,1,1,0,-1,1,51 
DATA 0.0,-1,0,1,0,1,-1,0,-1,5,51 
DATA 0,0.0,-1.0,1,-1,-1,0,-1,1,51 

’ barre-1 

DATA 0,0,-1,0,1,0,2,0,0,5,5,5 1 
DATA 0,0,0,1,0,-1,0,-2,0,1,-1,-2 1 
DATA 0,0,-1,0,-2,0,1,0,0,5,5,5 1 
DATA 0,0,0,-1,0,1,0,2,0,-1,1, 21 

’ Té-1 

DATA 0,0,1,0,0,1,-1,0,0,1,5,51 
DATA 0,0,1,0,0,-1,0,1,-1,0,1,51 
DATA 0,0,1,0,-1,0,0,-1,-1,0,5,51 
DATA 0.0,-l,0,0,l,0,-l,-l,0,1,51 
1 

PROCEDURE aff 1 
BMOVE XBIOS(3),XBIOS(2),32000 1 
RETURN 1 
PROCEDURE log 1 
VOID XBIOS(5,L:log,-l,-l) 1 
RETURN 1 
PROCEDURE delog 1 
VOID XBIOS(5,L:a,-l,- 1)1 
RETURN 1 
PROCEDURE br 1 
log 1 
EDIT 1 
RETURN 1 











ATARI ST 


SENTIPEDE 

L’un des plus anciens mais aussi des plus captivants 
jeux d’action que la micro-ludique ait jamais inventé. Le serpent 
déroule ses anneaux et tente inexorablement 
de vous enfermer dans votre propre stratégie. Oldies but goldies? 


’ MILLIPEDES ST 1F 
* PAR LUDOVIK ALESSO 1F 
’ 06/07/89 1F 

' MON RECORD EST DE 4120 POINTS f 
IF XBIOS(4)<>0 1F 
ALERT 1,-1 BASSE RESOLUTION 
| UNIQUEMENT...",1,"OK",rep% H 
ENDIF 1F 
CLS1F 

RESERVE 65000 1F 
buf%=GEMDOS(72,L:32000) 1F 
ecran%=GEMDOS(72,L:32000) 1F 
image$=SPACE$(32000) 1F 
BMOVE XBIOS(2),V: images,32000 1ï 
VOID XBIOS(5,L: v:image$,L:-1 ,W:-1) 1F 

’ ************initialisation de la 

PALETTE ********** 1F 
FOR i%=0 TO 15 1F 
READ r%,v%,b% 1F 
SETCOLOR i%,r%,v%,b% 1F 
N EXT i% 1F 
RESTORE c 1F 
DIM c(16) f 
FOR i=1 TO 16 1F 
READ c% 1F 
c(i)=c% 1F 
N EXT i 1F 

’ ***********CREATION DES 
SPRITES** ************ 1F 
RESTORE sprite 11ï 
FOR y%=1 TO 51F 
FOR x%=1 TO 10 1F 
READ a% 1F 
PSET x%,y%,a% 1F 
N EXT x% 1F 
N EXT y % 1F 
G ET 1,1,5,5,sprite$ 1F 
G ET 3,3,3,3,bomb$ 1F 
GET 6,0,10,5,masque$ 1F 
CLS 1F 

FOR y%=1 TO 10 1F 
FOR x%=1 TO 15 1F 
READ a% 1F 
PSET x%,y%,a% 1F 
N EXT x% 1F 
N EXT y% 1F 
GET 1,1,15,10,playerS 1F 
FOR y%=1 TO 151F 
FOR x%=1 TO 151F 
IF POINT(x%,y%)<>0 1F 


PSET x%,y%,15 1F 
ENDIF 1F 
N EXT x% 1F 
N EXT y% 1F 

GET 1,1,15,10,m_player$ 1F 
CLS 1F 

RESTORE pomme 1F 
FOR x%=0 TO 4 f 
FOR y%=0 TO 4 1F 
READ a% 1F 
PSET x%,y%,a% 1F 
N EXT y% 1F 
N EXT x% 1F 

GET 0,0,4,4,pommeS 1F 
CLS 1F 

’ **********************TABLEAU de 
BORD*************** 1F 
FOR i%=1 TO 4 1F 
COLOR c(i%+1) 1F 
BOX 0+i% ,0+i% ,50-i%, 199—i% 1F 
COLOR c(13-i%) 1F 
BOX 50+i%,0+i%,319-i%,199-i% 1F 
N EXT i% 1F 
FOR i%=5 TO 13 1F 
BOX 50+i% ,5+i% ,315—i% ,20—i% f 
COLOR c(i%) 1F 
N EXT i% 1F 
DEFTEXT 1,0,0,4 1F 

T EXT 88,14,"MILLIPEDE ST PAR ALESSO 

LUDOVIK" 1F 

» 

**********************papametres******** 
************ ^ 

LET long%=10 1F 

DIM x(long%),y(long%) 1F 

CLR score% 1î 

LET x%=1751F 

LET y%=190 1F 

LET yb=100 1F 

’ ************cREATION DES 

-|-^gl^£AU^****************** ^ 

DIM screen 1(56,34) 1F 
FOR i%=1 TO RAND(100)+50 1F 
screen 1(RAND(49)+3,RAND(26)+2)=11F 
N EXT i% 1F 
FOR i%=44 TO 190 1F 
COLOR c(MOD(i%,4)+9) 1F 
LINE 6,i%,43,i% 1F 
N EXT i% 1F 
FOR x%=1 TO 54 1F 


74 





FOR y%=1 TO 32 If 
IF screen 1(x%,y%)=1 If 
PUT 50+(x%*5),20+(y%*5),pomme$ If 
ENDIF If 
N EXT y% If 
N EXT x% If 
COLOR 4 f 

FOR i%=0 TO 32000 STEP 640 If 
BMOVE V:image$+i%,XBIOS(2)+i%,160 If 
PAUSE 0 If 
PAUSE 0 If 
N EXT i% If 

FOR i%=31680 TO 0 STEP -640 If 
BMOVE V:image$+i%,XBIOS(2)+i%,160 If 
PAUSE 0 If 
PAUSE 0 If 
N EXT i% If 

FOR i%=160 TO 32000 STEP 640 If 
BMOVE V:image$+i%,XBIOS(2)+i%,160 If 
PAUSE 0 If 
PAUSE 0 If 
N EXT i% U 

FOR i%=31840 TO 0 STEP -640 1ï 
BMOVE V:image$+i%,XBIOS(2)+i%,160 If 
PAUSE a f 
PAUSE a If 
N EXT i% If 

BMOVE XBIOS(2),buf%,32000 If 

»****#**> **Ht***********gQyQ^^ 

PRINCIP ^|_e********************** 

ON ERROR GOSUB perdu If 
b!»FALSE If 
FOR i%=1 TO long% If 
LET x(i%)=(5*i%)+55 If 
LET y(i%)=25 f 
N EXT i% If 
DO If 
joystick If 

FOR i%=1 TO long% If 
ADD x(i%),5 If 
N EXT i% If 

BMOVE buf%,ecran%,32000 If 
VOID XBIOS(5,L:ecran%,L:-1 ,W:-1) If 
FOR k=1 TO long% If 
LET h=(ABS(x(k))-50)/5 If 
LET v=(ABS(y(k))-20)/5 If 
IF screen 1(h,v)=l If 
ADD y(k),5 If 
LET x?k)*-x(k) If 
ENDIF 4 

SELECT ABS(x(k)) If 
CASE 55 U 
LET x(k)=-x(k) If 
ADD y(k),5 % 

CASE 310 If 
LET x(k)=-x(k) If 
ADD y(k),5 If 
ENDSELECT If 
SELECT ABS(y(k)) if 
CASE 170 If 
LET y(k)=-y(k) If 
CASE 20 If 


LET y(k)=-y(k) if 
ENDSELECT If 

PUT ABS(x(k)),ABS(y(k)),sprite$,7 If 
IF bomb%=10 If 
SUB yb,5 If 
PSET xb+7,yb,4 If 
ENDIF If 

IF POINT(xb+7,yb+2)=4 AND bomb%=10 If 
DEC long% If 
FOR i=k TO long% If 
LET x(i)=-x(i) If 
N EXT i If 

ADD score%,90 If 
ENDIF If 

IF POINT(xb+7,yb+2)<>0 AND bomb%=10 

If 

ADD score%,10 If 
TEXT xb+5,yb+3,"X" f 
CLR bomb% If 
LET 

screen 1( (xb-50)/5)+1,(yb-20)/5)=0 If 
VO D XBIOS(5,L:buf%,L:-1 ,W:-1) f 
PUT xb+5,yb,masque$ If 
VOID XBIOS(5,L:ecran%,L:-1,W:-1) If 
ENDIF If 
IF yb<25 If 
CLR bomb% If 
ENDIF If 
NEXTkH 

VOID XBIOS(5,L:buf%,L:-1 ,W:-1) If 
COLOR c(0) If 
FOR i%=1 TO 4 If 

LINE 6,40+fire%-i%,43,40+fire%-i% f 
N EXT i% If 

VOID XBIOS(5,L:ecran%,L:-1 ,W:-1) If 
PUT x%,y%,m player$,4 If 
PUT x%,y%,player$,7 If 
TEXT 5,10,"SCORE:" If 
TEXT 5,20,score% If 
TEXT 5,40,"BOMBES" If 
BMOVE ecran%,XBIOS(2),32000 If 
IF long%=0 If 
GOSUB gagne If 
ENDIF H 
IF fire%>155 If 
GOSUB perdu If 
ENDIF If 
LOOPIf 

«««««««««««DEBUT DES 
P ROC ED U RES»»»»»»»»»»»»»> If 

PROCEDURE lib If 
SETCOLOR 0,7,7,7 If 
VOID GEMDOS(73,L:buf%) If 
VOID GEMDOS(73,L:ecran%) If 
SETCOLOR 15,0,0,0 If 
RETURN If 

PROCEDURE perdu If 
VOID XBIOS(5,L:&H78000,L:-1,W:-1) If 
BMOVE ecran%,&H78000,32000 If 
FOR i%=0 TO 266 If 
COLOR c(MOD(i%,16)) If 
BOX 
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0+( i% * 2), ( i% * 2) ,319-( i% * 2), 199-( i% * 2) If 

TEXT 150,100,"PERDU! SCORE 0 rf If 

SUB x%,5 f 

CASE 9 f 

N EXT \% If 

ADD x%,5 If 

CLSU 

SUB y%,5 If 

GOSUB lib If 

CASE 10 If 

SETCOLOR 0,7,7,7 If 

ADD x%,5 If 

ALERT 2," |UNE AUTRE PARTIE 

ADD y%,5 If 

|",2,"NON|OUr,rep% If 

ENDSELECT If 

IF rep%=2 If 

IF y%<160 If 

RUNIf 

LET y%=160 If 

ENDIF f 

ENDIF If 

END If 

IF y%>185 If 

RETURN If 

LET y%=185 If 

PROCEDURE gagne If 

ENDIF If 

VOID 

IF x%<55 If 

XBIOS(5,L:&H78000,L:-1 ,W:XBIOS(4)) If 

BMOVE ecran%,&H78000,32000 If 

LET x%=55 If 

ENDIF If 

FOR i=0 TO 266 If 

IF x%>305 If 

COLOR c(MOD(i,15)+1) If 

LET x%=305 If 

VSYNC f 

ENDIF If 

BOX 50+i,20+i,315-i,195-i If 

RETURN If 

N EXT i If 

<<<<<<<<<<<««««<«<««FIN DES 

TEXT 130,90,"BONUS:" If 

PROCEDURES»»»»»»»»»»»»» If 

TEXT 200,90,(155-fire%)*30 If 

’ «««««««««««««<DEBUT DES 

TEXT 100,100,"BRAVO! SCORE:" If 

DATAS»»>»»»»»»>»»»»»> If 

TEXT 200,100,score%+(155-fire%)*30 If 

palette: If 

PAUSE 300 f 

DATA 

GOSUB lib If 

0,0,0,7,0,0,7,3,0,7,5,0,7,7,0,4,7,0,0,7, 

CLSIf 

0,0,7,5 If 

ALERT 2," |UNE AUTRE PARTIE 

DATA 

|",2,"NON|OUI",rep% If 

0,7,7,0,5,7,0,2,7,0,0,7,5,0,7,7,0,7,7,0, 

IF rep%=2 If 

4,7,7,7 f 

RUNIf 

sprite 1: If 

ENDIF If 

DATA 0,1,1,1,0, 0,0,0,0,0 If 

END If 

DATA 1,2,2,2,1, 0,0,0,0,0 If 

RETURN If 

DATA 1,2,4,2,1, 0,0,0,0,0 If 

PROCEDURE joystick If 

DATA 1,2,2,2,1, 0,0,0,0,0 If 

LET a=STICK(1) If 

DATA 0,1,1,1,0, 0,0,0,0,OU 

LET b!=STRIG(1) If 

sprite 2: If 

IF b!=TRUE If 

DATA 0,0,0,0,0,0,0,4,0,0,0,0,0,0,0 If 

SOUND 1,15,7,7,1 If 

DATA 0,0,1,1,0,0,2,4,2,0,0,1,1,0,0 If 

SOUND 1,10,4,4,1 U 

DATA 0,0,1,1,0,0,2,4,2,0,0,1,1,0,0 If 

SOUND 1,0 If 

DATA 0,0,1,1,0,1,2,4,2,1,0,1,1,0,0 H 

ADD fire%,4 If 

DATA 0,0,0,1,1,1,2,8,2,1,1,1,0,0,0 If 

LET bomb%=10 If 

DATA 0,0,0,0,1,1,2,8,2,1,1,0,0,0,0 K 

LET xb=x% If 

DATA 0,0,0,0,0,1,2,4,2,1,0,0,0,0,0 K 

LET yb=y% If 

DATA 0,0,0,0,0,0,2,4,2,0,0,0,0,0,0 « 

ENDIF If 

DATA 0,0,0,0,0,0,2,4,2,0,0,0,0,0,0 H 

SELECT a If 

DATA 0,0,0,0,0.0,0,4,0,0,0,0,0,0,0 41 

CASE 1 If 

pomme: If 

SUB y%,5 H 

DATA 00,10,11,10,00 K 

CASE 2 If 

DATA 10,11,12,11,10 If 

ADD y%,5 If 

DATA 11,12,13,12,11 f 

CASE 4 If 

DATA 10,11,12,11,10 If 

SUB x%,5 If 

DATA 00,10,11,10,00 If 

CASE 8 If 

c:f 

ADD x%,5 If 

DATA 

CASE 5 H 

0,2,3, 6A,7, 5,8,9,10,11,14J2^,15J3,1 

SUB x%,5 If 

SUB y%,5 If 

D ES DAT AS»»»»»»»»»»»»»»» 

CASE 6 If 

ADD y%,5 If 

If 




COMMODORE 64 & 728 


BASIC + 

Cet utilitaire étend votre basic au travail des sprites. Sa force 
première: il évite l’emploi des pokes en offrant des fonctions d’appel 
spéciales pour tous vos sprites. On peut aussi agrandir très 
simplement ces derniers. 


40 PR INT" 1=1 PATIENTEZ SVP" 

50 READA:IFA=7789THEN80 
60 PÜKE36096+C,A:C=C+1:B-B+A 
70 Ç0T050 

80 IFBO240496THENPR INT "ERREUR" : END 
90 P0KE53280,0:P0KE53281,0:SYS38107 
100 PRINT"WSP0üR fcREER VGS SPRITE" 
110 PR I NT " lsfc~C " 

120 PRINT"SBE SERVIR DES FLECHES"; 
130 PRINT" DE CURSEUR ET DE SPACE" 
140 PRINT"POUR REVENIR AU BASIC:F8" 
150 PRINT"POUR TRANSFERER UN SPRITE 

II 

160 PRINT"F2,PUIS +ÜU~,PUIS F2" 

170 PRINT"POUR RECUPERER LES SPR"; 
180 PRINT"ITES CREES:" 

190 PRINT"P0KE2040+NS,BLÜC" 

200 PRINT"NS=NÜ SPRITE" 

210 PRINT"N'OUBLIEZ- PAS DE SAUVER"; 
220 PRINT" LE PROGRAMME AVANTW" 

230 PRINT"«POUR DEFINIR UN SPRITE" 
240 PRINT"»-SA,B,C,D,E,F,G,H" 

250 PRINT"3#A=N0 SPRITE CO-73" 

260 PRI NT"BCPRI TE VISIBLE"; 

270 PRINT" OU NON C1-03" 

280 PRINT"CCOULEUR C0-153" 

290 PRINT"D-AGRANDISSEMENT X"? 

300 PRINT" OU NON Cl-03" 

310 PRINT"E=AGRANDISSEMENT Y"; 

320 PRINT" OU NON Cl-03" 

330 PRINT"F =PRIORITE TEXTE"; 

340 PRINT" OU NON Cl-03" 

350 PRINT"G=MUTICOLORE OU NONCl-03" 
360 PR INT "{««APPUYER SUR UNE TOUCHE" 
370 GETA$:IFA*=""THEN370 
380 PRINT"isMFQUR AFFICHER"; 

390 PRINT" DES SPRITES" 

400 PR INT" lafc-AS, X , Y" 

410 PRINT"» S=NO SPRITE 

420 PRINT" XCOORDONNEE EN XC0-3203 

II 

430 PRINT" YCOQRDONNEE EN YC0-2553 

II 

440 PRINT: PRINT"«POUR AFFICHER DES" 

450 PRINT" CARACTERES" 

460 PRINT" WH 3 <X,Y) ,A,B,C,D 


470 PRINT "»XCOLONNE 
480 PRINT"Y=LIGNE 

490 PRINT 


500 PRINT"B=NB DE CARACTERESC0-2553 


510 PRINT"C=NB DE COLONNESC0-253" 
520 PR INT" DCOULEUR C 0- 16 3" 

"530' PR INT "[««APPUYER SUR UNE TOUCHE" 
540 GETA$:IFA*=""THEN540 
550 PR I NT " 1=1" : +P ( 1, 1 ) , 160,13, 23,6 
560 +P < 14, 1 ) , 160, 13, 23, 1 
570 +P ( 27, 1 > , 160,13, 23,2 
580 FORI=0T01500:NEXTI 
590 GETA$:IFA$=""THEN590 
600 PR INT "{«AFFICHAGE DE 8 SPRITES 
610 F0RI=0T07: «-SI, 1,1 + 1,0,0, 0, 0: NEX 
T 

620 FORI=0T07:X-INT(RND(1)*320) 

630 Y=INT <RND(1)*200)+50 

640 +AI,X,Y:NEXT 

650 REM**TOCHE PRESSE*** 

660 GETA$:IFA$=""THEN66Û 

670 REM**ON EFFACE LES SPRITES** 

680 F OR I =0T07 : +S 1,0, 1,0, 0, 0, C) : NE X T 
690 REM**CREATION DE SPRITES** 


700 +C 

710 PRINT"RASSUREZ VOUS,UNE FOIS"; 
720 PRINT" CHARGE LE " 

730 PRINT"'NOUVEAU BASIC' NE"; 

740 PRINT" PREND QUE 2KO" 

750 PR INT “WML SE LOGE DE L ADRESSE 
TA 105,000,133,252,006,252,200,192 
1780 DATA 006,208,241,070,252,096,1 
60,002 

1790 DATA 162,023,177,251,041,001,2 
0 1 , 001 


1800 DATA 208,013,173,039,208,157,0 
81,216 

1810 DATA 169,160,157,081,004,208,0 
10,169 


1820 DATA 014,157,081,216,169,027,1 
57,081 

1830 DATA 004,202,014,205,143,014,2 
07,143 

1840 DATA 144,216,024,238,205,143,2 
38,207 
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1850 DATA 143,136,016,206,173,214,1 
43,105 

1860 DATA 040,141,214,143,141,219,1 

43.141 

1870 DATA 226,143,141,231,143,144, O 
12,238 

1880 DATA 227,143,238,215,143,238,2 

20.143 

1890 DATA 238,232,143,024,165,251,1 
05,003 

1900 DATA 133,251,165,252,105,000,1 
33,252 

1910 DATA 206,054,148,016,153,169,O 

20.141 

1920 DATA 054,148,169,081,141,214,1 

43.141 

1930 DATA 219,143,141,226,143,141,2 

31.143 

1940 DATA 169,004,141,220,143,141,2 

32 143 

1950 DATA 169,216,141,215,143,141,2 
27 1 43 

1960 DATA 096,032,156,255,032,228,2 

55.201 

1970 DATA 000,240,246,201,145,208,0 

16.173 

1980 DATA 003,208,201,057,240,235,2 

34.233 

1990 DATA 008,141,003,208,076,081,1 

44.201 

2000 DATA 017,208,016,173,003,208,2 
01,217 

2010 DATA 240,215,234,105,008,141,0 
03,208 

2020 DATA 076,081,144,201,029,208,0 

15.173 

2030 DATA 002,208,201,214,240,027,1 
05,008 

2040 DATA 141,002,208,076,081,144,2 
01,157 

2050 DATA 208,031,173,002,208,201,0 
30,240 

2060 DATA 016,233,008,141,002,208,0 
76,081 

2070 DATA 144,169,030,141,002,208,0 
76,115 

2080 DATA 144,169,214,141,002,208,0 
76,095 

2090 DATA 144,201,032,208,097,032, 1 

69.143 

2100 DATA 160,000,173,003,208,056,2 
33,057 

2110 DATA 074,074,074, 170,224,000,2 
40,006 

2120 DATA 200,200,200,202,016,246, 1 
73,002 

2130 DATA 208,056,233,022,074,074,0 

74.233 

2140 DATA 007,240,002,016,006,024, 1 


05,007 

2150 DATA 076,252,144,233,008,240,0 
02,016 

2160 DATA 007,024, 105,007,200,076,2 

52,144 

2170 DATA 233,001,200,200,170,177,2 
51,093 

2180 DATA 046,148,145,251,032,169,1 
43,032 

2190 DATA 198,143,076,135,144,133,2 
08,014 

2200 DATA 169, 001,237,029,208, 141,0 

29.208 

2210 DATA 032,125,143,076,144,144,2 
01,133 

2220 DATA 208,017,169,001,237,029,2 

08,141 

2230 DATA 029,208,032,125,143,032,1 
98,143 

2240 DATA 076,081,144,201,134,208,0 

11.169 

2250 DATA 001,237,023,208,141,023,2 
08,07 6 

2260 DATA 042,145,201,147,208,015,0 

32.169 

2270 DATA 143,169,000, 160, 063,145,2 
51,136 

2280 DATA 016,251,076,045,145,201,1 

35.208 

2290 DATA 020,032,169,143,160,063,1 
69,255 

2300 DATA 241,251,145,251,136,016,2 
47,032 

2310 DATA 169,143,076,045,145,201,1 

39.208 

2320 DATA 011,169,001,237,028,208,1 
41,028 

2330 DATA 208,076,081, 144,201,043,2 
08,077 

2340 DATA 173,248,007,201,223,240,1 
69,2< » i 

2350 DATA 063,240,044,238,168,007,1 

73.168 

2360 DATA 007,201,058,240,009,238,2 
48,007 

2370 DATA 032,169, 143,076,045, 145,2 

38.167 

2380 DATA 007,169,048,141,168,007,1 

73.167 

2390 DATA 007,201,058,208,232,238,1 
66,007 

2400 DATA 169,048,141,167,007,208,2 

22.169 

2410 DATA 128,141,248,007,169,049,1 
41,166 

2420 DATA 007,169,050,141,167,007,1 
69,056 

2430 DATA 141,168,007,208,203,201,0 

45.208 
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2440 DATA 081,173,248,007,201,032,2 
40,071 

2450 DATA 201,128,240,044,206,168,0 
07,173 

2460 DATA 168,007,201,047,240,009,2 
06,248 

2470 DATA 007,032,169,143,076,045,1 

45.169 

2480 DATA 057,141,168,007,206,167,0 
07,173 

2490 DATA 167,007,201,047,208,232,1 
69,057 

2500 DATA 141,167,007,206,166,007,0 
16,216 

2510 DATA 169,064,141,248,007,169,0 
48,141 

2520 DATA 166,007,169,054,141,167,0 
07,169 

2530 DATA 051,141,168,007,076,230,1 
45,076 

2540 DATA 081,144,201,137,208,047,0 

32.169 

2550 DATA 143,173,032,208,201,241,2 
40,016 

2560 DATA 165,251,133,253,165,252,1 
33,254 

2570 DATA 169,001,141,032,208,076,0 

81.144 

2580 DATA 206,032,208,032,169,143,1 
60,063 

2590 DATA 177,253,145,251,136,016,2 
49,032 

2600 DATA 198,143,076,081,144,201,1 
38,208 

2610 DATA 093,032,169,143,160,000,1 
77,251 

2620 DATA 170,200,200,177,251,072,1 

38.145 

2630 DATA 251,136,136,104,145,251,2 
00,200 

2640 DATA 200,192,063,208,233, 160,0 
00,162 

2650 DATA 000,134,253,177,251,041,0 
01,201 

2660 DATA 001,208,007,024,169,128,1 
01,253 

2670 DATA 133,253,014,126,146,014,1 

28.146 

2680 DATA 078,133,146,232,224,008,2 
08,227 

2690 DATA 238,126,146,238,128,146,1 
69,128 

2700 DATA 141,133,146,024,165,253,1 
45 251 

2710 DATA 200,192,063,208,202,032,1 
69, 143 

2720 DATA 032,198,143, 076,081,144,2 
01,049 

2730 DATA 208,006,238,039,208,076,1 


73.146 

2740 DATA 201,050,208,006,238,038,2 
08,076 

2750 DATA 173,146,201,051,208,006,2 
38,037 

2760 DATA 208,076, 173, 146,201, 140,2 
08,219 

2770 DATA 096,024,169,030,141,002,2 
08,169 

2780 DATA 057,141,003,208,169,013,1 
41,040 

2790 DATA 208,169,011,141,249,007,1 
69,032 

2800 DATA 141,248,007,169,103,160,0 
24,153 

2810 DATA 040,004,136,136,208,249,1 
69,003 

2820 DATA 141,021,208,169,128,141,1 
38,002 

2830 DATA 160,007,185,112,147,153,1 
61,007 

2840 DATA 136,016,247,160,013,162,0 
12,189 

2850 DATA 120,147,157,130,005,169,0 
13,157 

2860 DATA 130,217,202,016,242,173,0 

24.147 

2870 DATA 105,013,141,024,147,173,0 

25.147 

2880 DATA 105,000,141,025,147,173,0 

27.147 

2890 DATA 105,040,141,027,147,141,0 

32.147 

2900 DATA 144,008,238,028,147,238,0 

33.147 

2910 DATA 024,234,136,016,200,169,0 
05,141 

2920 DATA 028,147,169,217,141,033,1 
47,169 

2930 DATA 130,141,027,147,141,032,1 
47,169 

2940 DATA 120,141,024,147,169,147,1 
41,025 

2950 DATA 147,096,000,255,000,255,0 
00,255 

2960 DATA 002,012,015,003,032,048,0 
51,050 

2970 DATA 006,049,058,001,007,018, 0 
01,014 

2980 DATA 004,009,018,032,024,006,0 
50,058 

2990 DATA 020,018,001,014,019,006,0 
05,018 

3000 DATA 032,032,006,051,058,001,0 
07,018 

3010 DATA 001,014,004,009,018,032,0 
25,006 

3020 DATA 052,058,013,009,018,015,0 
09,020 
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3030 DATA 
58,014 
3040 DATA 


32,032 


3050 DATA 
12,020 
3060 DATA 


0ü,056 
3070 DATA 
32,032 
3080 DATA 
15,021 
3090 DATA 
32 , 032 
3100 DATA 
05,021 
3110 DATA 
58,003 
3120 DATA 
32,051 
3130 DATA 
20,009 
3140 DATA 
46,045 
3150 DATA 
32,016 
3160 DATA 


09,006 
3170 DATA 
32,032 
3180 DATA 
32,032 
3190 DATA 
28,064 
3200 DATA 
20,169 
3210 DATA 


33,001 
3220 DATA 
00,056 


005,018,032, 
005,007,001, 
032,006,054, 
009,003,015, 
058,006,009, 
032,032,032, 
012,005,021, 
050,058,003, 
018,032,050, 
015,021,012 
032,032,043 
014,032,019 
058,012,021 
018,005,003 
020,047,008 
032,032,032 
032,032,032 
032,016,008 
000,141,014, 
160,000,185, 


032,006,053,0 
020,009,006,0 
058,013,021,O 
012,046,032,O 
014,032,032,0 
049,058,003,0 
018,032,049,0 
015,021,012,0 
032,032,051,0 
005,021,018,0 
058,012,021,0 
021,009,022,0 
020,009,014,0 
046,019,008,0 
015,013,005,0 
032,032,032,0 
032,032,032, 1 
004,002,001,0 
220,169,115,1 
000,208,153,0 


3230 DATA 200,208,247,238,068,148,2 
38,071 

3240 DATA 148,173,068,148,201,216,2 
08,234 

3250 DATA 169,208,141,068,148,169,0 

56.141 

3260 DATA 071,148,169,119,133,001,1 
69,001 

3270 DATA 141,014,220,169,031,141,0 
24,208 

3280 DATA 169,255,141,216,056,141,2 
23,056 

3290 DATA 169,129,141,217,056,141,2 
18,056 

3300 DATA 141,219,056,141,220,056,1 
41,221 

331O DATA 056,141,222,056,096,162,0 

88.169 

3320 DATA 000,157,167,002,202,016,2 

48.169 

3330 DATA 255,141,213,002,141,246,0 
02,169 

3340 DATA 240,141,214,002,141,247,0 
02,162 

3350 DATA 000,169,128,157,216,002,1 
69,016 

3360 DATA 157,217,002,232,232,232,2 
24,030 

3370 DATA 208,239,032,055,148,032,0 
00,143 

3380 DATA 032,198,143,032,081,144,1 
69,147 

3390 DATA 032,210,255,169,013,141,1 
34,002 

3400 DATA 169,000,141,021,208,169,0 

21.141 

3410 DATA 024,208,096,169,000,141,0 
08,003,169,141,141,009 
3420 DAT A003,096,7789 


Explications: vous disposez d’un éditeur de sprites. Pour 
se déplacer dans cet éditeur, servez vous des flèches de 
curseur et de la barre d’espacement. Pour le quitter, 
appuyez sur la touche F8. Vous pouvez récupérer les 
sprites en tapant les touches F2, + ou -, puis F2. Vous 
avez différentes fonctions à votre disposition: 
agrandissement en X et en Y Couleurs des sprites 
affichage en X,Y Le programme est composé pour une 
part, d’explications et s’occupe, pour une autre part, de 
chargement de données. 


S 







COMMODORE 64 & 128 

CREATION DE SPRITES 

Voici un utilitaire de création de sprites. L’éditeur de ce programme 

est très bien réalisé. Beaucoup de fonctions sont au menu, par 

. • -■ .... /- ■ m ' ■ 

■ _■«_ _n_ jl* jmn.1 juttl j—L jxt • i/s rr ^ 

exemple la possioime ue aecaier ues simplement wua opmco uo 

gauche à droite sur l’écran. 

7 REM UNE FOIS 'C.S. SYS 10920' CREE 

44 P0KE780,14:P0KE781,0:P0KE782,192 

£3 REM ON PEUT LE CHARGER ET LE. FAIRE 

45 SYS 65469 

9 REM FONCTIONNER EN FAISANT SYS 10920 

46 P0KE251,168:P0KE252,42 

10 REM 

47 P0KE780,251:P0KE781,0:P0KE782,48 

11 PQKE53280,0;P0KE53281,0 

48 SYS 65496 

12 PRINTOMET(152) 

49 SYS 10920 

17. PR I NT " SS CREATION DE SP RI TE 

50 REM **BLGC 1** 

S 

51 DATA 169,000,141,000,065,169,000 

14 PR INT "["W TOUCHES FONCTIONNELLES DE L 

52 DATA 141,014, 220, 169, 05 1, .1.33, 001 

'EDITEUR: 

53 DATA 160,002,162,0 00 , 189 , 008 ,20 B 

15 PRINT"WW*0..7:AFFICHAGE DU SPEITE CON 

54 DATA 157,008,048,189,000,212,157 

SI. DE RE 

55 DATA 000,052,232,208,241,238,188 

.1.6 PR INT " #CESE : POUR LE DEPLACEMENT" 

56 DATA 042,238,191,042,238,194,042 

17 PEINT"*BARRE ESPACE:COLORIE OU EFFACE 

57 DATA 238,197,042 , 136 , 208 , 226 , 169 

UNE CASE 

58 DATA 055,133,001 , 169 , 001,141,014 

18 PR I NT " M# F1 : COULEUR DE L'ECRAN 

59 DATA 220,189,007,045,157,OOü,048 

19 PRINT"*F3:COULEUR DU SPRITE 

60 DATA 232,224,008, 208, 245 , 16.2 , OOO 

20 PRINT"*F5~F7:REGISTRES DE COULEUR POU 

61 DATA 169 , 240 , 157 , 000 , 208 , 232 

R SPRI TE MULTICOULEUR 

62 REM **BLGC 2** 

21 PRINT"*MsSPRITE MONQ/MULTI COULEUR 

63 DATA 232 , 224,016,208 , 247 , 169 , 037 

22 PR I NT " *H : DI L.ATAT I ON HORI ZONT ALE ON/OF 

64 DATA 162 , 000,157,001 , 208 , 232 , 232 

F 

65 DATA 224,016,208 , 247 , 169 , 147 , 032 

23 PR .TNT" *V: DILATATION VERTICALE ON/OFF 

66 DATA 210 , 255 , 169 , 144 , 032 , 210 , 255 

24 PRINT"*L./S: CHARGEMENT & SAUVEGARDE DE 

67 DATA 173,000 , 065 , 133 , 182 , 169 , 028 

SPRITES 

68 DATA 141,024 , 208 , 169 , 000 , 133 , 2 1 .1. 

25 PRINT"*A: SEQUENCE D'AN ïMATION 

69 DATA 169 , 005 , 133,214,032 , 108 , 229 

26 PRINT"MEX: POUR ANIMER L'ES SPRI TES 0,1 

70 DATA 166,182,189,118,044, .133,25 1 

O T O 1 /"ï 

y 4L. 9 1 9 i «j 

7 1 DATA 133,253,189, 126,044 , 133 , 254 

27 PR INT" 1*1 IL FAUDRA FAIRE: A. 0. 1 . 2. 3.2 

72 DATA 133, 252 , 189 , 1 10 , 044 , 1 4 1 ,0.2 1 

.1.8 

73 DATA 208,138,010,024 , 105 , 230 

28 PRINT" IL SUFFIRA D'APPUYER SUR UNE 

74 REM **BLOC 3** 

TOUCHE POUR REVENIR A L'EDITEUR 

75 DATA 157 , 248 , 007 , 032 , 193 , 044 , .1.6o 

29 DIM A(18) 

76 DATA 063,177,253 , 201 , 002 , 208 , 011 

30 FOR I =0T017 : RE AD A ( I. ) : NE X T 

77 DATA 166,182,173,028 , 208 , 029 , 11O 

3 1 DATA 9400 , 10789 , 10248,8191,8755 

78 DATA 044,141,028 , 208 , 200 , .177 , 253 

32 DATA 7352 , 6999 , 9801 , 7921 , 7305 , 9535 

79 DATA 141,237,043,200,177,253,141 

33 DATA 7916,8687,9396,9777,9670 

80 DATA 037,208,200,177,253, 166, 182 

34 DATA 9402,7601 

81 DATA 157,039,208,200,177,253,141 

35 FORI=0T017 

82 DATA 038,208,169,000, 133, 21 .1 , 1 41 

36 SOM-O 

83 DATA 255,063,169,013,133,214,169 

37 FORJ=1 T076:READ A: POLE 10919+I *76+J, A : 

84 DATA 001,141,052,003, 032, .134,044 

SOM=SOM+A:NEXTJ 

85 DATA 120,169,179,141,020,003 

38 IF SOMOA(I) THENPRINT"ERREUR BLOC "; 

86 REM **BLOC 4** 

I : END 

87 DATA 169,043, 141,021,003, 173,01? 

39 NEXTI 

88 DATA 208,041,127,141,017,208,169 

40 P0KE780, 1 :PQKE781,8:PQKE782,1 

89 DATA 001,141,026,208, 169,250, 14 .1 

41 SYS 65466 

90 DATA 018,208,169,002,133,002,169 

42 A$="C.S. SYS 10920" 

9.1 DATA 000, 141,032,208,141,014,220 

43 FQRI=1T014: PQKE 4915.1 + 1, ASC <MID$ (A$, I 

92 DATA 088,076,015,045, 1 7 3 2 5, 0 6 

, 1) ):NEXT 

93 DATA 041,001,240,037,141,025,208 


81 


1 






94 DATA 198,002,016,004,169,001,133 

95 DATA 002,166,002,189,232,043,141 

96 DATA 017,208,189,234,043,141,018 

97 DATA 208,189,236,043,141,032 

98 REM **BL0C 5** 

99 DATA 208,141,033,208,138,240,006 

100 DATA 104,168,104,170,104,064,0 76 

101 DATA 049,234,027,019,249,080,O12 

102 DATA 001,165,253,201,128,240,012 

103 DATA 169,244,133,003,166,254,202 

104 DATA 134,004,076,008,044,169,116 

105 DATA 133,003,165,254,133,004,166 

106 DATA 214,024,165,003,105,003,132 

107 DATA 003,165,004,105,000,133,004 

108 DATA 202,208,241,165,211,141,062 

109 DATA 003,173,062,003,201,008 
110.REM **BLQC 6 ** 

111 DATA 048,014,230,003,056,173,062 

112 DATA 003,233,008,141,062,003,076 

113 DATA 031,044,170,160,000,177,003 

114 DATA 029,102,044,209,003,208,017 

115 DATA 056,177,003,253,102,044,145 

116 DATA 003,032,108,229,169,064,032 

117 DATA 210,255,096,145,003,032,108 

118 DATA 229,169,018,032,210,255,169 

119 DATA 032,032,210,255,169,146,032 

120 DATA 210,255,096,128,064,032,016 

121 DATA 008,004,002,001,001,002 

122 REM **BLOC 7** 

123 DATA 004,008,016,032,064,128,128 

124 DATA 000,128,000,128,000,128,000 

125 DATA 057,058,058,059,059,060,060 

126 DATA 061,169,216,133,006,169,000 

127 DATA 133,005,166,214,169,040,141 

128 DATA 060,003,032,178,044,202,208 

129 DATA 250,166,211,240,011,169,001 

130 DATA 141,060,003,032,178,044,202 

131 DATA 208,250,173,052,003,160,000 

132 DATA 145,005,096,024,165,005,109 

133 DATA 060,003,133,005,165,006 

134 REM **BLOC 8 ** 

135 DATA 105,000,133,006,096,160,000 

136 DATA 169,003,133,189,177,251,141 

137 DATA 061,003,162,008,173,061,003 

138 DATA O10,141,061,003,144,038,169 

139 DATA 018,032,210,255,169,032, 032 

140 DATA 210,255,169,146,032,210,255 

141 DATA 202,208,229,200,192,063,240 

142 'DATA 023,166,189,202,134,189,208 

143 DATA 210,169,013,032,210,255,076 

144 DATA 195,044,169,064,032,210,255 

145 DATA 076,230,044,096,096,255 

146 REM **BLÜC 9** 

147 DATA 129,129,129,129,129,129,255 

148 DATA 032,228,255,240,251,201,029 

149 DATA 208,024,169,000,141,052,003 

150 DATA 032,134,044,230,211,032,156 

151 DATA 047,169,001,141,052,003,032 
1 52 DATA 134,044,076,015,045, 20 1. , 157 

153 DATA 208, 024,169,000, 141,052, C/03 

154 DATA 032,134,044,198,211,032,156 

155 DATA 047,169,001,141,052,003,032 

156 DATA 134,044,076,015,045,201,145 

157 DATA 208,024,169,000,141,052 

158 REM **BLOC 10** 


159 DATA 003,032,134,044,198,2 

160 DATA 156,047,169,001,141,0 

161 DATA 032,134,044,076,015,0 

162 DATA 017,208,024,169,000,1 

163 DATA 003,032,134,044,230,2 
DATA 156.047.169,001.141.0 

165 DATA 032,134,044,076,015,0 

166 DATA 133,208,013,238,237,0 

167 DATA 237,043,160,064,145,2 

168 DATA 015,045,201,032,208,0 

169 DATA 238,043,032,156,047,O 

170 REM **BLOC 11** 

171 DATA 134,044,076,015,045,2 

172 DATA 208,015,166,182,254,0 

173 DATA 189,039,208,160,066,1 

174 DATA 076,015,045,201,135,2 

175 DATA 238,037,208,173,037 ,7 

176 DATA 065,145,253,076,015,0 

177 DATA 136,208,013,238,038 ,2 

178 DATA 038,208,160,067,145 ,Z 

179 DATA 015,045,201,072,208,0 

180 DATA 029,208,166,182,024,C 

181 DATA 044,240,013, 173, 0>29 ,2 

182 REM **BLQC 12** 

183 DATA 056,253,110,044,141,C 

184 DATA 076,015,045,166,182,1 

185 DATA 208,029,110,044, 141, C 

186 DATA 076,015,045,201,086,: 

187 DATA 175,023,208,166,182,C 

188 DATA 110,044,240,013,173,< 

189 DATA 056,253,110,044,141,C 

190 DATA 076,015,045,166,182,: 

191 DATA 208,029,110,044,141,< 

192 DATA 076,015,045,201,048,< 

193 DATA 201,056,016,013,056, : 

194 REM **BLOC 13** 

195 DATA 048,133,182,169, 147,( 

196 DATA 255,076,026,043,201,< 

197 DATA 037,166,182,173,028,: 

198 DATA 110,044,201,000,208, 1 

199 DATA 028,208,029,110,044, 

200 DATA 208,076,015,045,056, 

201 DATA 208,253,110,044,141,' 

202 DATA 076,015,045,201,076, 

203 DATA 032,055,047,169,000, 

204 DATA 160,255,032,213,255, 

205 DATA 046,046,201,057,208, 

206 REM **BLOC 14** 

207 DATA 202,076,152,046,221, 

208 DATA 240,004,232,076,136, 

209 DATA 045,201,068,240,001, 

210 DATA 182,032,236,047,076, 

211 DATA 201,083,208,025,032, 

212 DATA 024,165,253,105,068, 

213 DATA 254,105,000,168,169, 

214 DATA 216,255,032,236,047, 

215 DATA 043,201,065,208,115, 

216 DATA 032,210,255,169,003, 

217 DATA 032,108,229,162,000, 

218 REM **BLOC 15** 

219 DATA 053,003,134,198,162, 

220 DATA 218,047,032,210,255, 

221 DATA 018,208,245,032,228, 

222 DATA 251,201,048,048,247, 

223 DATA 016,243,032,210,255, 


214 ,' 
052 , 
O 4 5 , 
141 , 
,2 1 4 , 


052.003 
045 ,20 1 
043,173 
253,076 
01 2,032 
032 


201,134 
039,208 
145,253 
208,013 
208,160 
045,201 
208,173 
253,076 
038,173 
061,110 
208 

029,208 
173,029 
029,208 
208,038 
024,061 
023,208 
023,208 
173,023 
023,208 
, 048 , 017 
233 

, 032,210 
, 077,208 
, 208,061 
, 012,173 
, 141,028 
, 173,028 
, 028,208 
, 208,048 
, 162,255 
, 076 , 154 
, 004 


006,043 
055,047 
170,165 

076,006 
169,147 
132 T , 21 4 
142 

000,189 

255,240 
201,057 
056,233 





224 

DATA 

048,174,053,003,157,000, 

067 

245 

225 

DATA 

201,008,240,006,238,053, 

003 

246 

226 

DATA 

076,212,046,224,000,240, 

032 

247 

227 

DATA 

160,000,190,000,067,189, 

110 

248 

nnn 

DATA 

044,224,008,240,244, 141, 

021 

249 


DATA 

208,162,032,169,000,206 


250 

230 

REM **BLQC 16** 


251 

231 

DATA 

012,003,208,251,202,208, 

246 

252 


DATA 

200,165,198,240,226,169, 

000 

253 

233 

DATA 

133,198,165,182,141,000, 

065 

254 

234 

DATA 

076,006,043,076,015,045, 

162 

255 

235 

DATA 

000,189,000,208,157,000, 

066 

256 

236 

DATA 

232,224,064,208,245,165, 

182 

257 

237 

DATA 

141,000,065,120,032,021, 

253 

258 

238 

DATA 

032,163,253,032,024,229, 

088 

259 

239 

DATA 

162,000,189,201,04 7, 032, 

210 

260 

240 

DATA 

255,232,224,017,208,245, 

162 

261 

241 

DATA 

000,142,053,003,032,228 


262 

242 

REM ; 

**BLGC 17** 


263 

243 

DATA 

255,240,251,201,013, 240, 

026 

264 

244 

DATA 

032,210,255,201,020,208, 

006 

265 


DATA 206,053,003,076,102,047,174 
DATA 053,003,157,000,064,232,142 
DATA 053,003,076,102,047,173,053 
DATA 003,162,000,160,064,032,189 
DATA 255,169,001,168,162,008,032 
DATA 186,255,096,165,211,201,024 
DATA 208,009,169,000,133,211,230 
DATA 214,076,181,047,201,255,208 
DATA 006,169,023,133,211,198 
REM **BLGC 18** 

DATA 214,165,214,201,025,208,005 
DATA 169,004,133,214,096,201,003 
DATA 208,004,169,024,133,214,096 
DATA 078,079,077,032,068,085,032 
DATA 080,082,079,071,082,065,077 
DATA 077,069,058,013,078,085,077 
DATA 069,082,079,032,068,085,032 
DATA 083,080,082,073,084,069,058 
DATA 1 62,000,189,000,066,157,000 
DATA 208,189,027,066,157,027,208 
DATA 232,224,026,208,239,096 


COMMODORE 64 S 128 

EQUATIONS 

Pour résoudre vos équations à une ou plusieurs inconnues, ce 
listing remplacera votre professeur ou votre machine à calculer. 
Attention pourtant, équation ne dépasse pas le niveau collège, fin 

de classe de troisième! 


10 REM EQUATIONS 

20 REM UTILITAIRE 

30 REM POUR COMMODORE 128 

40 REM NGUYEN/1987 

50 DIM A(10,10),S<10,10) 

60 DIM P(10,10),U(10,10) 

70 DIM T(10,10),X(10) 

80 SCNCLRSPRINT 
90 PRINTTAB(15) 

100 PRINT"SYSTEMES LINEAIRES" 

110 PRINTTAB(16) 

120 PRINT"DE N EQUATIONS A N" 

130 PRINTTAB(21)s PRINT"INCONNUES" 

140 PRINT 

150 PRINTTAB(B) 

160 PRINT"A x +A x"; 

170 PRINT" +...+A X =A" 

180 PRINTTAB(8) 

190 PRINT" 00 0 01 1"; 

200 PRINT" ON-1 N-l ON" 

210 FOR 1=0 TO 2 

220 PRINTTAB(9): PRINT". . 

230 PRINT" 


240 NEXT 
250 PRINTTAB(8) 

260 PRINT"A X +A X"; 

270 PRINT" +...+A X =A" 

280 PRINTTAB(8) 

290 PRINT" NO 0 NI 1"; 

300 PRINT" NN-1 N-l NN" 

310 WINDOW 3,13,39,24,1 
320 REM PROGRAMME PRINCIPAL 
330 PRINT 
340 PRINTTAB(8) 

350 PRINT"LE NOMBRE D'INCONNUES 
360 INPUT Ns Z=N:Q=0 
370 IF N=<0 THEN 320 
380 PRINT 
390 PRINT"ENTREZ LES COEFFICIENTS 
400 FOR 1=0 TO N-l 
410 FOR J=Ü TO N 
420 K=1*10+J 
430 PRINT!PRINT" A 
440 PRINTTAB(1);PRINTK 
450 PRINT" WBW" : PRINTTAB(6) 

460 PRINT; 


II 


470 I.NPUT A(I, J) 

480 NEXT:NEXT 

490 PR INT:PR INT 

500 PRINT"CALCULS EN COURS" 

510 FOR 1=0 TO N-2 : FOR J«1 TO N 
520 S(I,J)=—A(0,0)*A(I+1,J) 

530 TÜ,J) «A ( I +1,0 ) *A ( 0, J ) 

540 LJ ( I, J) «5 ( I, J) +T < I, J) 

550 NEXT:NEXT 

560 FOR J«0 TO N: P< Q,J)-A(O,J) 

570 NEXT 

580 FOR 1=0 TO N-1 : FOR J=0 TO N 
590 A<I,J)«U(I,J+l) 

600 NEXT:NEXT 
610 1 = 1-1 :Q=Q+1 

620 IFZ>—2THEN510 :ELSEIFQCNTHEN560 
63 0 F 0 R I « 0 T 0 N -1 : M=P ( N - 1 -1, I +1 ) 
640 FOR J«1 TO N 


650 M=M-P<N-1-I,J)*X(J+N--I-1) 
660 NEXT 

670 IFP(N-1-I,0)«OTHEN 790 
680 X <N—I~1)“M/P<N—1 — I,0) 

690 NEXT 

700 F 1 R IN T : P RIN T T A B < 8 ) 

710 PRINT"LES SOLUTIONS SONT" 
720 FOR 1=0 TO N-l 
730 PRINTSPRINT" X ="; 

740 X(I)=INT(X(I)*1000)/1000 

750 PRINTX(I) s PRINTTAB<1> ; I 

760 S LE EF* 1 

770 NEXT 

780 END 

790 PRINT 

800 PRINT"CE SYSTEME N'A “; 
810 PRINT"PAS DE SOLUTION" 


COMMODORE 64 3 128 

LOGITHEQUE 

Encore une mini base de données qui vous permet cette fois de 
répertorier et de classer tous les programmes de votre logithèque. 
Un listing très utile et fiable, idéal pour les joueurs puissamment 

équipés en softs! 


1 REM 

"(si" 

“CL R * 

"W 

«HOME 

2 REM 

"13" 

«CTRL 9 * 

"13" 

«CTRL 0 

3 REM 

"Si" 

«CTRL 4 * 

'« -g-“ 

«CTRL 8 

4 REM 

h pj.. 

«CTRL 1 * 

"isr 

«CTRL. 2 

5 REM 

" N" 

«COMMODORE 7 * 

"i?r 

«COMMODG 

RE 4 

6 REM 

" t«l" 

«CRSR BAS * 

"[«i" 

«CRSR HA 

UT 

7 REM 

"M" 

«CRSR DROITE * 

"il" 

«CRSR GA 

UC HE 

8 REM 

"W 

«TOUCHE F1 * 

" 151“ 

«TOUCHE 

F 7 

9 REM 

NE 

PAS COPIER LES 

LIGNES DE R 

tn 

10 PÜKE53 

280» Ils PQKE532 

81,11 


20 D«781 : DIMLO* < 78 J. ) : DI MG* < 26 ) : N=û s 
X %= " ": PRINTCHR*(142):PRINTCHR*<S) 
30 F0RG=1 T026 s RËADG*(G) : NEXTG 


40 DATAACTION,ARCADE,AUTO-MOTO,DIVE 
RS- DEMOS,AVENTURE„AVEN. ACTION 
5 0 D A T A G U E R RE ACT», A VEN. ES F' A C E, U T - 
IM P RI M E R, U T - G E S T10 N, A R T M A R TIA L 
60 DAT AUT--E X TENSI ON, U T-MUS I QUE, BOXE 
- J U D 0... » M J E U D EL C A F E , U T - G R A P H IQ U E 


70 DATAUT--DISQUETTE, SIMULATION, SFOR 
T EQUIPE,SPORT DIVERS,UT-DIVERS,VOL 
-COMBAT 

5 O D ATAREFL E X10N-ST,C0MP ILAT 10 N,ESP 
.INVASION,DIDACTICIEL 

90 G0SUB3210 

100 PRINT"IB»! ,, TAB<9) " -SL 0 G I T H E 
Q U ES " 

1 10 P RIN T T A B ( 9 ) 1 ’ [«I«13 1 13 VIS U A LIS E R 

6 MODIFIER" 

120 PRÏNTTAB (9) "(«13 2 13 LISTE DES GE 
NRES" 

130 PRINTTAB (9) "W3 3 13 ENTRER" : PRIN 
TT AB (9) "[«13 4 13 LIRE" 

140 PRINTTAB (9) "(«13 5 13 SAUVEGARDER" 
150 PRINTTAB (9) "[«13 6 13 IMPRIMER" 

160 PRINTTAB (9) "l«13 7 13 AJOUTER FI CH 
IE R " : PRINTTAB (9) " [«13 8 13 CA T A L 0 G U E D 
ISQUETTE" 

17 0 P RINTTAB (9) " [«13 9 13 RE T O U R A U B A 
SIC" 

180 PR I NT " {«I«P AR F ABRI CE KUIJ ER <198 
7) " 

190 G0SUB4090 


84 












200 ONVAL(AT)G0T0250,980,1050,1910, 
2020,2140,1790,1430,210:GOTO190 
210 PRINT" (BETES-VOUS SUR D'AVOIR TE 
RM I NE -BÜ3K/ -GN»? " : G0SUB4090 
220 IFAT-"N"THEN90 

230 I FAT- " 0" THENPRINT " (si" CHRT < 9 ) : END 

240 GOTO210 

250 IFN-OTHEN190 

260 G0SUB3210 : PR I NT “ (SUT T AB (8) * VIS 
UALISER ?y. MODIFIER »" 

270 PRINT"[m«I"lB**ia 1 IS LISTE COMPLET 
E 11 

280 pRINT"ln»lS 2 la A PARTIR DU NUME 
RO D'UNE ENTREE" 

290 PRINT"llMia 3 la A PARTIR D'UN NO 
M" 

300 PRINT"W»»ia 4 Ia LISTE PAR DISQUE 
TTE (ID.)" 

310 PR 1 NT"[R»»ia 5 la LISTE PAR GENRE" 
sPRINT n WiWa 6 la MENU PRINCIPAL" 

320 PR I NT " MRPMENREGISTREMENT S : " N 

330 GOSUB4090:C-1 : A-VAL(AT): ONAGOTO 

740,340,370,420,590,90:G0T0330 

340 PRINT" HUM-1STE A PARTIR DE L'EN 

TREE NUMERO:"; s L1=3:G0SUB2810 

350 B-VAL (BT ) r. IFB< 1 OR B>NTHENG0T03 

500 

360 C-B:GÜTÜ760 

370 PRINT"MB>Mil-ISTE A PARTIR DE L' 
ENTREE DONT" 

380 PRINT"WML.E NOM COMMENCE PAR:" 

: L. 1 -16 : G0SLJB2810 : BT-LEFTT ( B*, V ) 

390 FÛRJ-1TÜN:CT-LEFTT(LOT(J),V) 

400 IFCT-BTTHENC-J: GOTO760 
410 NEXTJ:GOT03500 

420 PRINT"Sin»*IID. DE L.A DISQUETTE: 

:L1-2:G0SUB2810 
430 IFLEN(BT)-1THENBT-XT+BT 
440 P-0: PR INT "W 

450 PRINTSPC (8) "DISQUETTE: ■fr"BTSF'C (6 
) " «BLOCS" 

460 PRINTSPC(8)"- 

, .... Il 

470 BC—664s FORI-1TON 
480 IDT-MIDT(LO*(I),17,2) 

490 IFBT-ÏDTTHENPRINTSPC(8)LEFTT(LO 
*<I), 16)SPC < 4)MID*(LO*(I),20,3):GOS 
UB3990 
500 NEXTI 

510 IFBC—664THEN3500 

520 PRINT:PRINTSPC(8)"BLOCS LIBRES: 
"BC:BC—O 

530 IFP-1THENG0SUB2550:G0T0560 

540 GOSUD2460 

550 IFF’— 1THEN450 

560 G0SUB4090: IFA*-".Ü"THEN250 

570 IFAT-"N"THEN90 

580 G0T0560 

590 PRINT"»" s G0SUB2780:PRINT" 1WIILI 


STE PAR GENRE: " ; : L1 = 1 :G0SUB2810 
600 B-ASC(BT)-64: IF EK 1ORB > 26THEN590 
610 F-O: PR INT "(si" 

620 J-0: PRINTSPC(7) "GENRE : -fi-" GT(B)SP 
C ( 13—LEN ( G* ( B ) ) ) 11 «SI D " SPC ( 1 ) " BLOCS " 
630 PRINTSPC(7)"- 

640 FORI=1TON:G-ASC(MIDT(LOT<I),19, 

1))-64:NLT-LEFTT(LOT(I),16) 

650 IDT-M1DT(LOT(I),17,2)sBLT-RIGHT 
T(LOT(I),3) 

660 IFB—GTHENPRINTSPC(7)NLTSPC(3)ID 

TSPC(3)BLT: J-J+1 :GGSUB4020 

670 NEXTI 

680 IFJ—ÜTHEN3500 

690 PRINT : PRINTSPC(7) "ENREGISTREMEN 
TS: “J 

700 IFF -1THENGQSUB2550:GÜTÜ560 

710 GÜSUB2460 

720 IFF’—1THEN620 

730 G0T0560 

740 IFN—0THEN90 

750 IF C <1THENC—1 

760 Y-C+19:J-C:G0SUB3560 

770 FORI—C Tü Y 

780 NLT-LEFTT(LOT(I) , 16) s IDT-MIDT <L 
OT(I),17,3) 

790 g-ASC(RIGHTT(IDT,1))-64: IFG<1OR 
G>26THENGT="":G0T0810 
800 GT-GT(G) 

810 BLT=MI DT(LOT(I) ,20,3) 

820 PRINT"M"NLT;XT;IDTç X*;BLT s XT;GT 
830 IFI-NTHEN60SUB3190:G0SUB3970s GO 
T0850 

840 NEXTI:GQSUB3970 

850 JT-STRT(J) :T=LEN(JT) : FORD-1TOT- 
1 :V-ASC(MIDT(JT, 1+U, 1) ) 

860 POKE1990+U,V:POKE1990+U+1,32: NE 
X TU 

870 G0SUB4090:A-ASC(AT) 

880 IFA-77THEN250 

890 IFA-43THENIFY<NTHENC=Y+1 :G0TÜ74 
0 

900 IFA-45THENIFY>20THENC=Y-39s GOTO 
740 

910 I FA= 17THENAT- " Il II") a «" s IF J < > Y AN 
DJ<NTHENJ=J+1:PRINTAT;:G0T0S50 
920 IFA= 145THENAT— " Il II«a>*" : I FJ<>CT 
HENJ=J-1:PRINTAT;:G0T0850 
930 IFA—65THEN3140 

940 IFA—73THENL1—2:G0SUB2820 s60T033 
10 

950 IFA—71THENL1 = 1 : PRINT" »l ; :GOSUB 
2820:G0T03260 

960 I FA—66THENL1 -3 : PR I NT » Il " SPC ( 3 ) ; 

:GÜSUB2810:G0T03330 
970 G0T0870 

980 G0SUB3210 : PR I NT " W" SPC ( 14 ) " QÇCISR 
ETURNiaDCCC" : PRINT"(si" : F-0 









990 PRINTSPC(11)“+ LISTE DES GENRES 
385" : F 1 RI NT : F-'RI NT 

1000 G0SUB2780: PRINTs PRINTSPC(2)"EX 
r. S U MME R G AMES AIT + GENRE" 

1010 PR INTSPC(20)"N ": PRINT SPC(18) 

»xD."siFP—1THENPRINT#4s CLOSE4:F-O: G 
ÜT090 

1 020 PRINT " W*DU-!S- I - 4Ss -IMPR-I MER " 

1030 G0SUB4090 s IFAT < >"I"THEN9O 
1 040 0PEN4,4 s CMD4s P=1 :G0T0990 
1050 6ÜSUB3210 s PRINT" WN" TAB <16) n + E 
NTRER »" 

1060 P RIN T T AB (8) " M«M««I«1S F 1 IS: E N T R E 
R PAR CLAVIER" 

1070 PR I NTT AB (8) "MS F7 IS: ENTRER PAR 
CATALOGUE" 

1 080 PR I NTT AB ( 8 ) " M< COMMANDES s ISRET UR 
N 385, ISM 385, ISX 385, IS>-385„ IS- 385) " 

1090 PR I NTT AB (9) "MS M IS: RETOUR AU M 
ENU" 

J. 100 G0SUB4090 
1110 IF AT- " IS" THEN1 150 
1 120 I FAT= " ISI" THEN 1450 
1130 IF AT="M"THEN90 
1140 GOTO1100 

1 15 0 IF N == D --1T H E N G 0 S U B3630 : G 0 T03730 
1160 N=N+1 

1170 G03UB3210s PRINTTAB(15)" HCCCCCC 
C C C C C C" : P RI NT" WN' ' TAB (13) '* 4* ENTRER C 
LAVIER IS" 

1180 PRINTSPC(11)" MTITRE"SPC(9) "ID. 
"SPC(3)"BLS" 

1190 PRINT: PRINT 

1200 PRINT" KXCCCCCCCCCCCCC GENRES 
CCCCCCCCCCCCCCH M" :G0SUB2780 
1210 PR J. NT " MnWPENTREES DISPON1 BLES 
: "D-N 

J. 220 L1 -16 s P RIN T ' ' {anURÜM ' T A B ( 5 ) : G 0 S U B 
2810 

1230 L 0 T ( N > B T : P RIN T "MU" ï 
1240 L1=2s GGSUB2810 

1250 LOT ( N ) -LOT ( N ) +BT : PR I NT " IMS 38»l 
Ül": s 

1260 L1 = 1 s GOSUB2820:LOT(N)=LÜT(N)+B 
T 

1 270 L1 =3 : PR I NT " T AB ( 24 )XT; SPC 

(5); sGGSUB2B10: PRINT" W" 

1280 LOT(N)=LX)T(N)+BT 
1 290 G”ASC ( MI DT ( LOT ( N ) , 19, 1 ) ) - 64 s ï i~ 
G<1ORG> 26THENGT="":GOT 01310 
1300 GT-GT(G) 

1310 PRINTTAB(22) "s"? GT;XT 
1320 PRINT:P0KE214,21:PRINT: PRINTTA 
B ( 13) "IS ACCEPTE 0/N? 385" 

1330 G0SUB4090 

1340 IFAT-"0"THENIFN=1THENPRINT"W" : 
GOTO1380 

1350 IFAT-"0"ÜRAT-CHKT(13>THENGOSUB 
3340:GOTO1380 


1360 IFAT="N"THENLÜT(N)-"": GOTO1170 
1370 GOTO1330 

1380 PR I NT " MD K, UNE AUTRE *&G3K/ -5N385? " 
1390 G0SUB4090 

1400 IFAT-"0"ÜRAT—CHRT(13)THEN1150 
1410 ï FAT-"N"THEN9Û 
1420 GOTO1390 

1430 PR I NT " W" T AB ( 10 ) " -BCAT ALOGUE DIS 
QUETTE38M" 

1440 LNT="": F=0:GOT01460 
1450 F— 1 : PL«0 : PR I NT " W«i" T AB ( 12 ) " «NT 
RER CATALOGUEES»)" 

1460 OP EN 1, 8 , 15, " I " : G0SUB37 3.0 : I FF 1 < 
>0THEN3720 

1470 OPEN15,8, 15:PRINT#15,"ï"+DVT: 0 
PEN1,8,3,"#":PRINT#15,"U1:3"DV",18, 

O " 

1480 PRINT#15,"B-P s 3,144": FORL-1TO1 
6 : 6 ET# 1, AT : LNT—LNT+AT : NEXTL 
1490 PR INT#15,"B-P s 3,162": GET#1,AT, 
BT,CT,DT,ET: CLOSE15: CLOSE1 
1500 IDT=AT+BT+CT+DT+ET: PRINT TAB(4) 

" UISSEilWilvESU" : IDT—AT+BT : LNT-" " 

3.510 IF F < > 0 THEN P RIN T ' 1 MftlRM 1 ' T A B ( 2 9 ) " IS 

■■II" ; : 6GSUB2820 : PR I NT 

2720 LOT(N)=LQT(N)+BT 

2730 FORI-55296T G55301 :POKE1,1:NEXT 

1 

2 7 4 0 F' G K E1024, 20 : F* 0 K E1025, 18s P 0 K E 1 0 
26,9:POKE1027,46:POKE1028,46:POKE10 
29, 46 

2750 G0SUB3350: FOR I^552967 055301 : PO 
KE1,11 :NEXTI :RETURN 

2760 BT-1 DT : IFRI GH T T ( BT, 3. ) - X TTHENBT 
=LEFTT(BT,2) 

2770 RETURN 

2780 FORI-1TO13: J-1 +13: PRINTSPC(3)C 
HRT(I+64)": "GT(I)SPC(15-LEN(GT(I)) 

) 5 

2790 PRINTCHRT(J+64)": "GT(J) 

2800 NEXTI:RETURN 
28 3.0 F'R INT"IS>385" ? 

2820 FORT-1TÛL1 : PR I NT "; : NEXT T s FOR 

T-1TÜL1 : PR I NT " II" ; : NEX.TT 

2830 G0SUB2900 

2840 IFL 1 = 1THEN2890 

2850 I FL 1.-2THEN IF V» 1THENBT-X T+BT 

2860 I FL 1 - 3 T HEN G 0 S U E*4060 s IFV—OTHENP 

R INT "II"; : G0T02880 

2870 FORT—1 TOV+1 : PRINT"II" ? : NEXTT 
2880 PRINTXT;BT; 

2890 RETURN 

2900 V=0:AT="": BT-"" 

2910 •• GE T AT : I FAT- " " THEN2910 

2920 * A=ASC(AT): IFA=13THEN3070 

2930 IFBT=""ANDA=2 0 T HEN2910 

2940 IFBT-""ANDA-32THEN2910 

2950 IFA=20THENAT= "IL_lf* : BT-LEF TT ( BT 

,V-1): V—V—1: PRINTAT; :G0T02910 
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2960 IFA=*340RA=440RA=580RA=S9THEN29 
10 

2970 IF A > 31A N D A < 9 6 T H E N 2 9 90 

2980 GQT02910 

2990 V=V+1:B$=B$+A$ 

3000 PR I NIA* h- 
3 010 IF L E N ( B $ ) = L1T H E N3030 
3020 GGT02910 

3030 GETA*:IFA$="“THEN3030 
3040 A=ASC(A$) : IFA=13THEN3130 
3050 IF A - 2 0THEN2950 
3060 GGT03030 

3070 I FL 1 =3ANDB$= " 11 THENB$= "-"s RET 

IJRN 

3080 IFL1=1ANDB$=""THENB$-X$:PRINTB 
$;:RETURN 

3090 IF B %= " " T H E N290O 
3100 IFL1<>160RF=1THEN3130 
3110 B-LE. N ( B* ) : IF B=L 1THEN3130 
3120 FORT-BIOL1~1 :B*=B*+Xîi>:NEXTT 
3130 RETURN 

3140 PR I NT " SfnPAT IENTEZ , ANNULAT I ON b 
N COURS !“: FÜRK—JTON 
3130 LOT(K)—LOT(K+1) 

3160 NEXTK 
3170 N-N-lsC-C-l 
3180 03OT0740 

3190 R0KE214,21:PRINT : PRINTTAB(11)" 

10 FIN DES ENTREESIS" 

3200 RETURN 

3210 PR I NT " {=S®“ : PR I NT " r" ; : FORT= 1T037 
s PR I NT " C " ; : NEXTT : PR I NT " -i " 

3220 FORT=1T020s PRINT"B"TAB <38)"B": 
NEXTT 

3230 PR I NT " ? : FORT= 1T037: PR I NT " ; 

: NEXTT SPRINT"-J" 

3240 P RIN T 11 M 11 TAB (15) "I07OTRE C H 01 X ? 10 

11 

3250 RETURN 

3260 LOT(J)=LEFTT(LOT(J),18)+BT+RIG 
HTT(LOT(J) ,3): PRINTSPC(5) ; 

3270 B=ASC(BT)-64:IFB<1QRB>26THENGT 
= " " s GOT03290 
3280 GT=GT(B) 

3290 FORT : = 1TO12: PRINT" NEXTT: FOR 
T-1 TO 12 : PR INT" II" : : NEXTT; IF GT < > ""T HE 
NPRINTGT? 

3300 FORT-1TQLEN(GT)+8: PRINT"II" ; : NE 
XTT:G0T0870 

3310 LOT(J)=LEFTT(LOT(J),16)+BT+RIG 
HTT(LOT(J),4) 

3320 PR I NT " IHI0 »" ; : G0T087O 
3330 LOT(J)-LEFTT(LOT(J),19)+BTs PRI 
NT 11 ■■■■■■■■10» ? : G0T087O 
3340 PR 1 NT"MulTRI-"s 

3350 NLT=LEFTT(LOT(N), 16): IFNLT>LEF 
TT(LOT(N—1),16)THENRETURN 
3360 LOT(N+1)=LOT(N):IFNLTCLEFTT(LO 
T ( 1 ),16)THEN1 = 1:G0TD3450 


3370 AT=LEFTT(NLT, 1) : FORJ=1TON-1 : BT 
=LEFT T(LOT(J >,1) 

3380 IF B T=A T T H E N -I=J‘ - J : G0T03410 
3390 NEXTJ 
3400 J=1 

3410 FORI—JTON-1 

3420 ABT=LEFTT(LOT(I),16) 

3430 IFNLT< ABTTHEN3450 
3440 NEXTI 

3450 FORK=N TO I STEP-1 
3460 LOT(K)=LOT(K-1> 

3470 NEXTK 

3480 LOT ( I ) —LOT (N+ 1 ) ; LOT ( N+ 1 ) - 11 " 

3490 RETURN 

3500 PR I NT " [Rlnl«I«I«M0 CELA NE CO RR E SP 0 
ND PAS A UNE ENTREE! 10" 

3 510 P RIN T T A B ( 13 ) 11 WWJ N E A LJ T R E *QO «/ * 
N 38?" 

3520 G0SUB4090 
3530 IFAT="0"THEN250 
3540 IFAT="N"THEN90 
3550 G0T03520 

3560 PR INT" IBM- TITRES ID. 

BLS GENRES»!" 

3570 PR INT " r" ; : FORT = 1T037 : PR INT " C " ? 

: NEXTT : PR I NT "-i " 

3580 FORT=1T020: PRINT"B"TAB(38)"B" : 
NEXTT 

3590 PR I NT 11 L " ? : FORT-1T037 : PR INT " -" 

: NEXTT: PRINT"- 1 " 

3600 PRINT" (ISCOMMANDES: 10 ISCRSR», IffïE 
TURN3K, «+■«, 1*“»- ISB», 101», 103», 103», »S0 v i3S) " 
3610 PR I NT " NUMERO : " SPC (11) " ENREGI SI" 
REMENTS: "N"WW" 

3620 RETURN 

3630 PR I NT " l-DESQLE, PLUS DE PLACE EN 
MEMOIRE !"? :RETURN 

3640 PR INT#4: PRINT#4: PRINT#4: PRINT# 

4 

3650 PRINT" JUS T E Z LE PAPIER A 

LA PAGE SUIVANTE" 

3660 PR INT "[««PRESSE Z: 10 Fl 10 SI OK 
": PRINTTAB(12)" MiU RETOUR AU MENU" 
3670 G0SUB4090 

3680 IFA*=" M" ORA$—"M"THENRETURN 
3690 G0T03670 
3700 OF'EN 1,8, 15 

3710 INPUT#1,F1,F*,F2,F3: CLOSE1 :RET 
URN 

3720 PRINT"WF1 ; F*; F2;F3; 

3730 PÜKE204,0:POKE198,0: WAIT 198, 1 : 

GET A$:P0KE204, 1:60TÜ90 

3740 PR I NTTAB (12)" lnl«I«I«I«I«I«]0 F1 10: CAS 

SETTE" : PR I NTTAB (12 ) " («10 F7 10: DISQUET 

TE" 

3750 PRINTTAB ( 13) "Wfl M 10: RETOUR AU 
MENU" 

3760 GETC$:IFC$=""THEN3760 
3770 IFC^="M"THEN90 
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3 



3780 î FCT < > “ lar AND CT < > " ISi" THEN3760 
3790 P RI NT" HM G M DU FI C HIE R s i S> S" ; : I F' 
FI T< > “ "THENPRI NT FI T : 60 SU B409O : I FAT— 
CHRT(13)THEN3810 

3800 F ~ 1 : L 1 = 16 s PR I NT " H" T AB (16) ï, : GÜS 

UB2820s FIT=BT 

3 810 P RIN T 11 Si" s F=0 : RE T U R N 

3820 GETAT: IFAT-""THEN3820 

3830 I FAT— " + " THENPl- i : BC-BC+BL s GOSU 

B3920s PRINT"!■■■! "BT? : PR I NT:RETURN 

3840 IF AT-" F 1 ' T H E N38 70 

3850 IFAT-- " N " THENPR I NT "IMMON" : RETU 

R N 

3860 BOT03820 
3870 G0SUB3920 

3880 LOT(N)«LOT(N)+BTsF'L-0:BC=0:GÜS 

UB2730s IFST<>0THENRETURN 

3890 PR INT " lllll 5 : GOTO 1730 

3900 IFPT-"PRG"GRPT-"SEQ"ÜRF'T-"REL" 

ÛRPT-"USR"THENRETURN 

3910 PT-"DEL"ïRETURN 


3920 BT-STRT ( BC ) : B-VAL < BT ) s L-LEN < BT 

> 

3930 IF L- 1 THENBT- X T+ XT-i-BT 

3940 IFL-2THENBT-XT+BT 

3950 IFL >2THENBT—RIGHTT(BT,3) 

3960 RETURN 

3970 PR INT" fBWmr T AB (17)" ial> 38" ; 

3980 RETURN 

3990 L-VAL(RIGHTT< LOT(I),3) ) s CT-RIG 
HTT(LOT(I),1):C-A3C(CT) 

4000 IFC<48QRC>57THENBC-0 
4 010 B C « B C - L : IF B C < 0 T H E N B C - 0 
4020 IFF-1THEN4050 
4030 SET AT: I FAT-- 11 "T HE N4050 
4040 GOSUB4090 
4050 RETURN 

4060 B--LEN ( BT ) : IF B-1 THENBT-XT+XT+BT 
4070 IF B=2 T HENBT-XT+B T 
4080 RETURN 

4090 GETAT: IFAT-""THEN4090 
4100 RETURN 


COMMODORE 64 A Î28 

MAD CAR 

Le circuit de votre première course occupe tout l’écran. Montrée en 
vue aérienne, la piste slalome de façon dangereuse 
et votre bolide n’a qu’un but, arriver le premier en fin de parcours! 
Un seul joueur mais plusieurs circuits. 


50 GOTO 2540 

60 COLOR 0,1 : COLOR 4,1 

70 X--1500 : A — 160: VI =6: 0-1 : SC-1 

80 PRINT" HUMnENTREZ VOTRE VITESSE(1-100) 

II 

90 PRINT"W*WSDANGER ! ! ISIGLA VITESSE 1 EST 
LA PLUS RAPIDE." 

100 INPUT VH 
110 TIT«"000000 ' 1 

120 0N0G0SUB270,570,840,1100,i370,1640,1 

960,2260 

130 DH—1 

140 F'GKEX, 160 

150 IF JOY(2)=1THENDOUNTIL JOY(2 >-30RJ0Y 
(2) -50RJ0Y (2) =7: LETX-X-40: LETC0-CÜ--40: LE 
T F R—2000: GO SU Et200 : POKEX , As POKECO, 3: POKEX 
+40 , 32 : FORH- 1 TOVH : NE X T : LOOP 
160 IFJOY(2)-3THEN DOUNTIL JOY(2)=1ORJOY 
(2)-50RJ0Y(2 )-7 :LET X = X+1 :LETCO-CÜ+1 : LETF 
R—2500:G0SUB2O0:POKEX,A:POKECO,4:POKEX-1 
,32:FORH-1TOVH:NEXT:LOOP 

170 IF J'0 Y ( 2 ) -5THEND0UNTI L JOY < 2 ) -1 DR JOY ( 
2)«3ORJOY(2 )—7 :LET X — X+40:LETCG-CD+40 :LET 


F R=3000 : G0SUB200 : POKEX , A : POKECO, 5 : F'OKE X 
-40,32:FORH-1TOVH:NEXT:LOOP 
180 l F JOY (20 - 7THEND0UNTIL J'ü Y < 2 / -1 ÜRJû'V \ 
2) -30RJ0Y (2) =5: LETX-X-1 : LETCO-CCJ-1 : LET FR 
=3500:B0SUB200:POKEX,A:POKECO,6:POKEX+1, 
32:F0RH=1TOVH:NEXT:LOOP 
190 GOTO140 
200 REM 

210 IF F'EEK (X) =F* THEN VI-VI-1 : G0T080 

220 IF PEEK(X)-G THEN 0-0+1 :GOSUB2410 

230 IF PEEK(X)-81 THEN DH-DH+1 

240 IF DH-NB THEN POKE CA,.32 

250 S0UND2,FR,2,2,FR-1000,,2 

260 SC-SC+1:RETURN 

270 REMTRACE DU CïRCUITl 

280 PR I NT " «c I RC 

UIT IIS" 

290 FORT-1T0800: NEXT 
300 PR I NT V HW" 

310 P RIN T " *■#* * * * * * * * * * * * * * * * a * * # * * a * * * 

"VI"****" 

320 X = 1518: CO-1518+54272: 6-60 ;; P-42 : S-1 
330 PRINT"* * 
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*" 




680 

PRINT"Z 

Z 

Z Z Z 

340 

PR INT"* 



* ********** 


Z Z" 



***** *" 




690 

PRINT"Z 

Z 

Z Z Z Z 

350 

PRINT"* 

******* * 

Z 

Z Z" 




* * 11 




700 

PRINT"Z 

Z 

Z Z Z Z Z 

360 

PRINT"* 

* 


* * 

Z 

Z Z" 




* * " 




710 

PRINT"Z 

Z 

Z Z Z Z Z 

370 

PRINT"* 

* 


* ** 

Z 

Z Z " 




* * " 




720 

PRINT"Z 

7 

L. 

Z Z Z Z Z 

380 

PRINT"* 

* 

* 

* * * * * * * * * * * * * * * 

Z 

Z Z" 



* 

* * " 




730 

PRINT"Z 

Z 

Z Z Z Z Z 

390 

PRI NT"* 

* 

* 

* * * 

Z 

Z Z" 




* * " 




740 

PRINT " Z 

Z 

Z Z Z Z 

400 

PRINT"* 

* 

* 

* * 

Z 

Z Z" 




* * " 




750 

PRINT"Z 

Z 

Z Z Z Z 

4 10 

PRI NT "* 

* 

* 

* * 

Z 

Z Z" 




** *" 




760 

PRINT"Z 

Z 

Z Z Z Z Z Z Z 

420 

PRINT"* 

* 

* 

* * ********** 


Z Z" 



****** *" 




770 

PRINT"Z 

Z 

Z Z Z Z 

430 

PRINT"* 

* 

* 

* * 

Z 

Z" . 




** *" 




780 

FRINT"Z 

Z 

Z Z 21.212 

440 

PRINT"* 

* 

* ' 

* * 

1 

Z" 




* * " 




790 

PRINT"Z 

Z 

2.1112 

450 

PRINT"* 

* 

* 

****** 

Z 

Z" 




* *" 




800 

PRINT"Z 

Z 

1 

460 

PRINT"* 

* 

* 

* ************* 

Z 

Z" 



** 

* *" 




810 

PRINT"Z 

Z 

Z 2.2 

470 

PRINT"* 

* 

* 

* 

Z 

Z" 




* *" 




820 

PRINT"Z+++Z 

211212 2 Z 1.22.12.211 Z Z 1 Z 2.12 2 

480 

PRINT"* 

* 

* 

* 

22== 

: = = = =Z » 




* * " 




830 

RETURN 



490 

PRINT"* 

* 

* 

* 

840 

REM ****TROISIEME CIRCUIT**** 


* * " 




850 

X = 1924-40: G : 

=6 0 : S=3 : P=4 2 : C 0 « 1924 40+' 

500 

PRINT"* 

* 

* 

* * 

4272:sCOLORS, 

4 



* * " 




860 

PRINT"W 

*********** * *** 1 ' VI ' 1 * ** *** * 

5 10 

PRINT"* 

* 

* 

* * 

********* " 



* 

*" 




870 

PRINT" * 


* * 

520 

PRINT"* 

* 

* 

* ********* 

** 

* » 



*** 

* " 




880 

PRINT"* 


** 

530 

PRINT"* 


* 

*< 

* 

*" 




*'• 




890 

PRINT"* 

********** * **** 

540 

PRINT"* 


* 

*< 

* 

* " 




*" 




900 

PRINT"* 

* 

* * * * 

550 

PRINT" ***************************** 

* 

* *" 



********* " 




910 

PRINT"* 

* 

* * * 

560 

RETURN 




* 

* * " 



570 


920 

PRINT"* 

* 

**** * * * 

IT 2" : FGRE<= 1 T0800: 

NEXT 


* 

* * 11 



580 

X~1860:C0= 

1860+542 

:72:G=43:P=90: S=2 

930 

PRINT"* 

* 

* * * * * 

590 

HJ=INT(RND(1)*15): 

IFHJ=00R HJ*1THEN5 

* 

* *" 



90 





940 

PRINT"* 

* 

* * * * * 

600 

C0L0R5,HJ 




* 

* * " 



610 

PR INT" (=i" VI 




950 

FRINT"* 

* 

* * * * * 

620 

PRINT" ZZ 

21TZ2111 

2122222222222121 

* 

* * " 



21111111 " 




960 

PRINT"* 

* 

* * * * * 

630 

PR INT" Z 



11 

* 

* * " 




Z" 




970 

PRINT"* 

* 

* * ** * * 

640 

PRI NT"Z 



1 

* 

* *" 


s ' 


Z" 




980 

PRINT"* 

* 

* * * * ** *■ 

650 

PRINT"Z 



1 

* 

* * " 




Z" 




990 

PR INT"* 

* 

* *• ********* * 

660 

PR I NT " Z 

212 


2 211222221112 

* 

* *" 



2221 

Z" 




1 000 

' PR INT"* 

* 

* * ** ** * 

670 

PRINT"Z 

1 


1 2 11 

* 

* *" 



Z 

Z" 




1010 

PR INT"* 

* 

* * * * * 
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1360 RETURN 

1370 PR I NT " I»I"*W WWW******** - C 

IRCUIT 5" 

1380 X=1355: CG=X +54272: G=24: P=35:8=5 
1390 F0RL=1T0800: NEX T 

1400 P RIN T " ####### tt tt # tt # # # # # # # # # # # ##tt 1 ' 


tttttttttt### 


1420 PRINT"# ## 
######## tt" 

1430 PR INT"# # 


# ### tttttttttt 


************************** 


1080 PR INT" 
******** " 
1090 RETURN 

pr i nt " 


1440 PRINT"# # tt############## 

######" 

1450 PRINT"# # # 

##### #" 

# # ######### ### ###### 


### ##### ## 


iWShCIR 


:l 100 

CUIT 4: BTQUCHEZ LA CROIXÜ" 
1110 FORH=1T0800:NEXT 
1120 X=1065:Cü=1065+54272: 
1130 PRINT"VI"««1 

mmmmmmm " 

1140 PR INT" B B V :?• 


1460 PRINT"# 

## #" 

1470 PRINT"# # # # 


1480 PRINT"# # # tt ##### # #### ####### 

##" 

1490 PRINT"# ### # # # ##### ### 


MH 18" 


1500 PRINT"# # # # # ### # ###### ### 


1510 PRINT"# # # # # # ###### ### tt# 

##########" 

1520 PRINT"# tt tt # ####### tttttttttt# tttttt # 
tt # #" 

1530 PRINT"# tt # # tt##### #tttt 

## # ##" 

1540 PRINT"tt tt # tt############### tt### 

####### #" 

1550 PRINT"# # # # 

# # " 

1560 PRINT"# tt tt##################### 


117 o pr int" m b mmm 




1570 PRINT"# tt################# 
######tt##tt" 

1580 PRINT"##################### 


1590 PR INT"#########tt########## X# tt 


tttttttttt 


1600 PRINT"#################### tt 
##$:$### tt" 

1610 PRINT"#################### tt 


1620 PR I NT " tt####################.######## 
#########" 

1630 RETURN 

1640 REM**********#CIRCUIT6***** 

1650 print" isfmmMMMriMWiiwMBMMMisE i r 

CUIT 6ISP* 

1660 PR INT" WWWW-PRENE Z TOUTES LES BALLES 
ET VOUS " 

1670 PRINT"WW TROUVEREZ LA SORTIE" 

1680 X--1982-40 : CG=X+54272: 6=86 s CA* 1541 - 
80: N B=2.0: P=42: S=6 
1690 FORJ=1TO1000: NEXT 
1700 PR INT" Mer 1 

1710 PRINT"***************************** 
**"VI"***" 


90 






1720 

PRINT" 

* 




**Q ***** 



mmmm 

mmmm" 




*" 








2070 

PR INT":»: 

mmmi 

Si: 

1730 

PRINT" 

* 

* ***** 

* 

*** **** 

* 



•KiV" 




* 11 








2080 

PR INT "18 


25: 

1740 

PRINT" 

* 

* *Q*Q* 

* 

**** *** 

* 

**** 

mmmm 

mmmm" 



**********" 








2090 

PR INT "K: 


g!; gggg-: 

1750 

PRINT" 

* 

* * * 

* 

* 

***** ** 

* 



»" 




* 11 








2100 

PR INT "m 


m 

1760 

PR INT" 

* 

* * 

* 

* 

****** ** 

****** 

SS 

1 

1 

mmmm" 



******** *" 








2110 

PR I NT " si* 



1770 

PR INT" 

* 

* ** 

** 

* 

**Q ** 

* 



msm u 




*'• 








2120 

pr i nt "m 

m 

mmmm 

1 780 

PR INT" 

* 

*Q** 

**Q* 

****** ** 

* 

**** 

m$ 

m m" 



********** " 








2130 

PRINT"I8 

Q 

mm 

1790 

PRINT" 

* 

**** 

**** 

***** ** 

* 



m" 




Q* " 








2140 

PRINT "m 


M 

1800 

PRINT" 

* 




**** 

****** 

m m 

m m 1 



**********" 








2150 

pr int" m 


m m 

1810 

PR INT" 

* 

********* 

*** *** 



Q;g: ? 

£Q»Q m" 




*V" 








2160 

PRINT"» 



1820 

PR INT" 

* 

* 


****** **** 

****** 

mmm j 

mm m" 



**********" 








2170 

PRINT "m 


• : 

1830 

PRINT" 

* 

** 

* 


***** 


***Q 


mm 38 " 




****Q*****" 

1040 PR INT"************* ******** *** 

**** Q**" 


1850 

PÇtlNT" 

* 


*Q **** 


* 


*****" 






1860 

PR INT" 

* 

*** 

******* *** 


* 


*****" 






1870 

PRINT" 

* 

* * 

Q* 

Q* 

****** 

**** 

*****" 






1880 

PRINT" 

* 

*** 

*** ******* 

* 

*** 

**** 

Q**" 






1890 

PR INT" 

* 

* *• 

* 

* 

* , ** 

*** 

*****" 






1900 

PRINT" 

* 

** 

*** ****** 

*■ 

*Q **l 


2180 PRINT "M M 

w 

2190 PR I NT " :$ Q 

m q w % 

2200 PR INT"Si 
2210 PR INT" Wi 

m mmmm'' 

2220 PRINT"ï::ï 


• •- :$S 

- v ;.îfcMÿ 

■ÊMm *2 

, Q : 

Q 


2230 print" ai q» Qmm m » 

2240 

2250 RETURN 

2260 REM****VOUS AVEZ FINI** 

2270 PRINT"PT 

2280 FQRG=1TD20:P0KE53280,G:P0KE53281, G- 
1 :FÜRY=1T010:NEXTY,G 

2290 FORY—0T039:POKE1024+Y,42:NEXTY 
2300 F G R Y=0 T024*40STEP40:POKE1024+Y,42: N 
EXTY 

2310 F0RY=0T024*4G5TEP40:POKE1063+Y,42: N 
EXT 

2320 FORY-0TG39:POKE1984+Y,42:NEXTY 
2330 PRINT"|sM«MnI«l"M*I«*W»W»»»WW»lS& BR AV 

0 BS" 

2340 PRINT:PRINT"»W»WWWWWUÜTRE SCORE ES 
T DE:"SC 

2350 PRINT: PRINT"MMHYOULEZ VOUS ESSAYER 
DE FAIRE MIEUX ?" 

2360 GETA$:IF A*=""THEN2360 
2370 IFA$="0"THEN60 
2380 IF A$<>"0"THENEND 
2390 GGT02360 
2400 END 

2410 PRINT"Mm«I«»»*BiSUüTRE SCORE ACTUEL E 
ST DE "SC 

2420 V*=RIGHT*<TI*,2>:H*=MID*<TI*,2,2) 
2430 PRINT"M"I«»MMTEMPS AU CIRCUIT "S": " 
H*" ' "V$. 

2440 RF=VAL< V* ) :RT=VAL < H*)*60:PL-RT +RF 


****Q*****" 

1910 PR INT" *** ** * Q*** * ** 

**********" 

1920 PR INT"*Q* ** * ******* **** * * 

* ***• **" 

1930 PRINT"* ** *Q * *** 

* * " 

1940 PR INT"***************************** 
**********" 

1950 RÉT-URN 

1960 REM****CIRCUIT6" 

1970 PR INT" I RCU IT 

7" 

1980 PRINT"M«MM~PRENEZ TOUTES LES BALLES 
ET VOUS " 

1990 PRINT"WW TROUVEREZ LA SORTIE" 

2000 FORK=1TO1000:NEXT 

2010 X=1902:CO=X+54272:G=86:CA=1423:NB=2 
6:5=7:P=102 

2020 PRINT"Wt $ "VI" --5 

2030 PR INT "il: jMMW B QB Q» QKG) W& 

2040 print'«:sï;Q ms mm mm mmmm mm 

i m -■ " 

2050 PR INT "» È 

QW' 

2060 pRiNT"ssQa;ü -, mmmm. m • - 









2450 PR I NT " MMillMi/OUS PERDEZ "PL" PG IN 
TB 1 11 ' 

2460 PRINT"IHIIIIECORE DE LA PARTIE: "SC- 
PL 

2470 INPUT "l*im --VOULEZ VOUS CHANGER DE VI 
TESSE CO/N)" ; Y* 

2480 IF Y*="a" THEN GOSUB 2520 

2490 IF Y$="N"THEN PRINT"VOTRE VITESSE E 

ST TOUJOURS DE "VH 

2500 PR INT" ' EST PART I. 

Il 

2510 F0RK=1T01000: :NEXT:Q=Q+1: GOTO 120 
2520 PR INT "(=T : INPLJT "Mmmm- VI TESSE DE 1 A 
100ÏVOTRE CHOIX"; VH 
2530 RETURN 

2540 REM******************* 

2550 REM***@F'RESENT ATI ON**** 

2560 POKE53280,0:P0KE53281,O 
2570 PR INT "la!" 

2580 PR IN T " [bIbIbIbIbIbIbIbIbIb»*************!^ i i 

«dm isacMA-GRisr 

2590 PR I NT "»»»»»»»»»»»»»»!- - 

2600 FOR I=07 062: READVB:P0KE3584+1,VB: NEX 
T : J~1 

2610 SPRITE1,1,2,1 

2620 EE * <• 2 ) = " laI"I*I«im«I«I«I«I«I«I«I*imiimi«lPlnI«I»MiMiH 

ACHEVE LE 2 FEVRIER 1988 
2630 ee* <3) =" 

»»[::— POUR COMMENCER 
2640 SPRITE1,1,2,1 

2650 EE* < 1 ) = " (BIBIBIB»»»»»F'R0DU IT PAR N. RODE 


& P.MOYER" 

2660 X=4-5 : KJ = 1 : LI = 175: RT = l 

2670 MOVSPR1,X,LI 

2680 PR INTM I-D* ( EE* ( RT ) , K J, 1 ) ; 

2690 F0RL=1T050:NEXTL 

2700 X = X+7:KJ—KJ+1 

2710 IF X>330 THEN 2740 

2720 IF KJ>37 THEN 2740 

2730 G0T02670 

2740 X=0:KJ=1:LI=200:RT=2 

2750 MOVSPR1,X,LI 

2760 PR INTMID*(EE*(RT) ,KJ, 1) ; 

2770 IF X >3307 HE N2800 

2780 IF KJ>51THEN2800 

2790 X = X+6:KJ-KJ+1 :60T02750 

2800 X=0: KJ=1 :LI=230:RT=3 

2810 MOVSPR1,X,LI : PRINTMID*(EE*(RT) ,KJ, 1 

) ï 

2820 IF X>330 OR KJ>51 THEN 2880 

2830 X = X>5:KJ=KJ+1 :G0T02810 

2840 DATA15,192,0,15,192,0,3,0,0,27,0,2, 

27,112,2,31,248,58,159,254,58 

2850 DATA135,254,18,243,231,255,251,224, 

255,127,224,127,251,224,255 

2860 DATA243,231,255,135,254,18,159,254, 

58,31,248,58,27,112,2 

2870 DATA27,0,2,3,0,0,15,192,0,15, 192,0 

2880 REM***R0UTINE 

2890 GET A*: IF A*< >"C"THEN2890 

2900 IF A*="C"THENSPRITE 1,0 :GÜTÜ60 


COMMODORE 64 & 128 


MARAIS 

En route pour l’aventure! Marais se comporte de trois scénarios 
distincts. Le joueur devra tenir compte d’une centaine 
d’objets et de personnages. Quant au dialogue avec l’ordinateur, il profite de 

quelques dix-huit verbes... 

1 V=53248:POKEV+32,0:POKEV+33,0: PRINT"W 

2 DATA173,33,208,141,254,199,172,18 

3 DATA208, 140,33,208,32,32,192,32,228 

4 DATA255,201,32,208,240,173,254,199 

5 DATAI 41,33,208, 173,255,199,96,162 

6 DATA31,202,208,253,96 

7 DATAO,0,3,0,0,7,0,0,15,0,0,15,0,0 

8 DATAI 5,0,0, 7,0,0,7,0 ,<7,4,0,0,4,0 

9 DAT AO,4,0,0,4,0,12,4,0,30, 15,0,51 

10 DATAS,0,33,8,0,45,136,0,30, 123, O 

11 DATA18,96,0,51,63,O,33,64,O,97,128 

12 DATA192,O,0,224,O,O,240,0,0,240,0 

13 DATAO,248,0,O,232,O,0,228,0,0,32 

14 DAT AO,0,32,0,0,32,0,0,32,0,0,32 


JL sj u M I M*+o , O , 24U , 1 20 , O ,16,204 , O , i o , a ... 

16 DAT AO,17,180,0,251,120,0,6,72,0 

17 DATA252,204,0,2,132,0,1,134,0 

18 DATAO,240,255,1,153,0,1,14,30,3,6 

19 DATA33,6,2,64,4,14,72,0,49,204,0 

20 DATA70,72,0,152,48,0,160,16,1,32 

21 DATA15,1,64,0,1,64,0,1,64,0,1,64 

22 DATAO,1,48,96,0,142,160,O,97,252 

23 DATAO,28,0,0,3,144,0,0,96 

24 DATA255,15,0,0,153,128,120,112 

25 DATA128,4,96,192,2,64,96,18,112 

26 DATA32,51,140,0,18,98,0,12,25,0,8 

27 DATAS,O,240,4,128,0,2,128,0,2,128 

28 DATAO,2,128,0,2,128,6,12,128,5 
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29 DATAI 13,O,63, 134,0, 16,56,0,9,192 

30 DATAO,6,0,O 

31 FORI=49152T049189:READA:F'OKEI,A:NEXT: 
F 0RS=0T0251STEF'64 :FORX =0T062:READT 

32 P0KE16128+S+X,TïNEXTX,S:A*=" )ÿ 

IS" 

33 PR INT" MST 1 : PR INTA* 

34 PR INT" CHRISTOPHE GRAZ Z INI DAVID S 

INELNIKOW": PRINTA*:PRINTA* 

35 PR INT" \ÿ PRESENTENT 

36 PR INT" ISS --- 

37 F0RA=1T03:PRINTA*:NEXT: PRINT" 13 

-LE MARAIS- PRINTA 

* 

38 PR INT" 13 -AUX-- 

": PRINTA* 

39 PR INT" 15? —SCORPIONS- 

":FORA=1T04:PRINTA*:NEXT 

40 PR INT" ISS PRESSEZ ESPACE 

" FORA= 1T04 : PR I NTA* : NE XT 

41 FORI=0T03:PGKE2040+1,252+I :PQKEV+39 +1 
,11:NEXT 

42 FORI=0T03sP0KE2044+1,252+1 :P0KEV+43 +1 
,11:NEXT 

43 POKEV+21,255: F'OKEV+23,255: PÜKEV+29, 25 

V-J 

44 POKEV,45:POKEV+1,110:POKEV+2,92:POKEV 
+3, 110: POKEV+4,45 : F'OKEV+5, 152 

45 POKEV+6,92:POKEV+7,152 

46 POKEV+8,237:POKEV+9, 110:POKEV+]2,237 : 
POKEV+13,152 

47 POKEV+16,160:POKEV+10,27:POKEV+11,110 
:POKEV+14,27:POKEV+15,152 

48 SYS49152: PR INT "MT : POKEV+21 , O 

49 M* = "»l LE MARAIS AUX SCORPIONS 

50 F'RINTCHR*(14) 

51 F'RINTM*:F'RINT"»»»] LE MARAIS AUX SCO 
RPIONS EST UN JEU" 

52 PRINT"D'AVENTURE QUI VOUS DONNE LA PO 
SSIBILITE" 

53 F'RINT"»DE CHOISIR ENTRE TROIS SCENARI 
OS. " 

54 PRINT"»] IL EST CONSTITUE D'UNE CINQ 
UANTAINE" 

55 PRINT"DE DECORS ET D'UNE CENTAINE D'O 
BJETS ET PERSONNAGES." 

56 PR INT"»] POUR VOUS AIDER A COMMUN I QU 

ER AVEC" 

57 PRINT"L'ORDINATEUR AU COURS DE VOTRE 
AVENTURE," 

58 PR INT " [«VOUS DISPOSEZ DE DIX-HUIT VFRB 
ES ET DE DOUZE INSTRUCTIONS." 

59 PRINTTAB(13)"»»»PRESSEZ ESPACE" 

60 6 ETS$:IFS* O" "G0TG6O 

61 PR INTM$ 

62 PR INT"»] VERBES 
IONS" 

63 PR IN T" il -- 


64 PRINT" ACHETER 

65 PRINT" ATTAQUER 


ABREVIAT 


ACHE" 

ATTA GU T 


66 PRINT" BOIRE BOIR" 

67 PRINT" CREUSER CREU" 

68 PRINT" DONNER DONN" 

69 F'RINT" ENTRER ENTR" 

70 PRINT" EXAMINER EXAM OU R 

II 

71 PRINT" MANGER MANG" 

72 PRINT" NAGER NAGE" 

73 F'RINT" PAYER PAYE" 

74 PRINT" POSER POSE" 

75 PR INT" PRENDRE PREN OU P 

II 


76 PR INT" REGARDER REGA OU R 

II 

77 PR INT" SALUER SALU" 

78 F'RINT" SAUTER SAUT" 

79 PR INT" SORTIR SORT" 

80 F'RINT" TUER TUER OU T 


81 F'RINT" UTILISER UT IL. OU U 

II 

82 POKEV, 128 : POKEV +1, .105 : F'OKEV+23, 0 : PQK E 
V+29,0:POKEV+21,15 

83 POKEV+2, 152:POKEV+3, 105:POKEV+4, 128: P 
OKËV+5,126:POKEV+6,152:POKEV+7,126 

84 PR INTTAB(13 ) "[«PRESSEZ ESPACE " 


85 GETS*: 

IFS* O" " G0T085 


86 F‘R INTM* 


87 F'RINT" »I«I«I«1 INSTRUCTIONS 

ABRE 

VIATIONS" 

oa Dr» t kit n 



□o FKINT 

■1 


S ? 1 



89 F'RINT" 

FIN 

F I N " 

90 F'RINT" 

BILAN 

BIL.A" 

91 F'RINT" 

MISSION 

M" 

92 F'RINT" 

INVENTAIRE 

I " 

93 PRINT" 

NORD 

N" 

94 F'RINT" 

SUD 

S" 

95 F'RINT" 

EST 

E" 

96 F'RINT" 

OUEST 

0 " 

97 F'RINT" 

HAUT 

H" 

98 F'RINT" 

BAS 

B " 

99 F'RINT" 

DEDANS 

DEDA" 

100 F'RINT 1 

" DEHORS 

DE HO" 


101 PRINTTAB ( 13) "»I«I«PRESSEZ ESPACE" 

102 GETA*:IFA*<>" "GOTO102 

1 03 POKEV+21,0: PR INTM* : PR I NTTAB (14) "»»II N 
STRUCTIONS" : PRINTTAB ( 14) "Il- 

104 F'R I NT "»M~F IN: PERMET D'ARRETER LE DER 
ÜULEMENT DU JEU A TOUT MOMENT" 

105 PRINT"-BILAN:VOUS DONNE VOS PTS ET L 
E NOMBRE DE DEPLACEMENTS EFFECTUES 

106 F'R INT "-MISS ION: VOUS RAPPELLE LE BUT- 
DE VOTRE MISSION 

107 F'R INT "-INVENTA IRE: VOUS INDIQUE CE QU 
E VOUS TRANSPORTEZ 

108 F'R INT "[«LES INSTRUCTIONS NORD, SUD, EST 
,OUEST,HAUT" 


109 PRINT"»BAS,DEDANS,DEHORS PERMETTENT 
DE VOUS DEPLACER DANS LE MARAIS 

110 PRINTTAB ( 13) "»I«»PRESSEZ ESPACE" 

111 GETA* :* IF A* <> " "GOTülll 

112 POKEV+21, O : F'£' I NTM* 

1 13 PR I NTTAB (10) " »I«LES PI ERRES DE MAGIE " 
114 PRINTTAB (10) "Il-——-... 
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115 F‘RINT"W«1 POUR VOUS AIDER DANS VOTR 
E AVENTURE" 

116 PRINT"VOUS DISPOSEREZ DE PIERRES DE 
MAGIE" 

117 PRINT"AYANT CHACUNE UN POUVOIR DIFFE 
RENT. " 

118 PRINT"M ELLES VOUS SERONT REMISENT 
DES LE" 

119 PRINT"DEBUT DU JEU PAR LA PERSONNE Q 
UE VOUS" 

120 PRINT"AUREZ DECIDE DE SERVIR DANS VO 
TRE" 

121 PR INT "AVENTURE. IL. VOUS SERA POSSIBLE 
TOUTEFOIS" 

122 PRINT'TüDE VOUS EN PROCURER: D'AUTRES 
DURANT" 

123 PRINT"LE LONG VOYAGE QUI VOUS ATTEND 
,SOIT EN" 

124 PRINT"LES ACHETANT,SOI T EN CHERCHANT 
DANS LE" 

125 PRINT"MARAIS AUX SCORPIONS." 

126 PRINTTAB(13)" WHWPRESSEZ ESPACE" 

127 GETA*:IFA$<>" "G0T0127 

128 F'RINTM* 

129 PRINTTAB ( 6 ) "IULES PIERRES DE MAGIE (S 
UI TE)" 

130 PRINTTAB (6)"If ~ 

-.... 

131 PRI NTTAB < 6 ) " WP IERRES UT ILISATI 
ON" 

132 PRI NTTAB (6) "lî 

-«Il 

■■ 

133 PR I NT " M- AM ITI El 
IRE DES 

134 PRINT"-BENEDICTION 
R TOUTE 

135 PRINt"-CHANCE 
T S DE 

136 PRINT »-CROISSANCE 
VEGETAUX" 

137 PRINT"-ENDURANCE 
T S 

138 PRINT"-FEU 
DU FEU" 

139 PRINT"-FLETRISSURE 
NT" 

140 PRINT"-GLACE 
E" 

141 PRINTTAB(13) "[«PRESSEZ ESPACE" 

142 GETA*: IFA$0" "G0T0142 

143 PRINTM* 

144 PRINTTAB( 6 ) "[«LES PIERRES DE MAGIE (S 
UI TE)" 

145 PRINTTAB( 6 )"K 

5! 1 

146 PRINTTAB( 6 )" WP IERRES UT ILISATI 
ÜN" 

147 PRI NTTAB ( 6 ) "Il 

-«Il 

■S 

148 PRINT"l«HHABILITE '.REMONTE LES POI 

NTS D'HABILITE" 

149 PRINT"-ILLUSION : REND INVISIBLE 

150 PRINT"«-MALEDICTION : BAISSE L'HABILI 

TE DE VOTRE ADVERSAIRE" 

151 PRINT"-TERREUR s PERMET DE TERROR 


ISER VOTRE ADVERSSAIRE" 

152 PR I NTT AB (13) " l«I«I«I«PRESSE Z ESPACE" 

153 GETA*:'IFA*<>" "GOTO 153 

154 F'RINTM* 

155 PRI NTT AB (12) "[«VOTRE PERSONNAGE" 

156 F*R I NTTAB < 12 ) "If Wf* 

157 PRINT" VOTRE ETAT PHYSIQUE EST IND 

IQUE PAR" 

158 PRINT"TROIS NOMBRES QUI REPRESENTËNT 
CHACUN" 

159 PRINT"VOTRE HABILITE,CHANCE ET ENDUR 
ANCE. W" 

160 PRINT" LES POINTS D ENDURANCE (MAX 
=24): " 

161 PRINT" C'EST GRACE A EUX QUE VOTRE P 
ERSONNAGE" 

162 PRINT"VIT.S'ILS SONT A ZERO:VOUS MOU 
REZ. " 

163 PRINT"W LES POINTS D'HABILITE (MAX 
= 12 ): " 

164 PRINT" ILS DEFINISSENT VOTRE HABILIT 
E AU" 

165 PRINT"COMBAT: PLUS ILS SONT FAIBLES,F 
LUS VOUS" 

166 PRINT"AVEZ DES CHANCES DE PERDRE." 

167 PRINT"l«l LES POINTS DE CHANCE <MAX = 1 
2 ) : " 

168 PRINT" ILS SERVENT POUR DES ACTIONS 
PHYSIQUES" 

169 PRI NT "QUI NECESSITENT DE L.A CHANCE. 

170 PRINTTAB( 13) "[«PRESSEZ ESPACE" 

171 GETA*:IFA*<>" "G0T0171 

172 PRINTM*: PRINT"W«1"TAB( 13) "VOTRE AVENT 

URE " : PR I NTTAB (13)" li Sï«l" 

173 PRINT" IL PLEUVAIT LORS DE VOTRE A 
PRIVEE EN" 

174 PRINT"VILLE ET C'EST POURQUOI VOUS A 
VEZ DECIDE" 

175 PR I NT "I«D 'ALLER A L'AUBERGE LA PLUS F 
ROCHE." 

176 PRINT" DES VOTRE ENTREE,LE SILENCE 
S'IMPOSA" 

177 PRINT"ET TOUS LES IVROGNES, LES BRIE 
ANS, LES" 

178 PR INT "AVENTURIERS, MERCENAIRES ET Al.. 
TRES, VOUS" 

179 PR INT "[«DEVISAGERENT COMME VOUS NE L' 
AVIEZ" 

180 PRINT"JAMAIS ETE AUPARAVANT." 

181 PRINT" SOUDAIN, UNE VOIX INCONNUE 

SE FIT ENTENDRE" 

182 PRINT" 'QUE VIENS-TU CHERCHER DANS: 

NOTRE VILLE,ETRANGER ! ?'" 

183 PRINT" 'JE SUIS ICI POUR ME PREPAF 

ER A TRAVERSER LE MARAIS'" 

184 PRINT" (REPONDEZ-VOUS D'IJNE-VOIX RAUG 

UE. ) " 

185 PRINTTAB(13)"««PRESSEZ ESPACE" 

186 GETS*ïIFS*<>" "GOTO186 

187 PRINTM*:PRINT"M DES GROGNEMENTS E" 
DES MURMURES SE FIRENT AUSSITOT ENTEr 

DRE. 

188 PRINT" 'TU N'Y REUSSIRAS PAS SANS 
MON AIDE, VALEUREUX AVENTURIER•'" 

189 PRINT"(UN NAIN S'APPROCHE ALORS DE 1 


: PERMET DE SE FA 
AMIS" 

: PERMET DE GUERRI 
BLESSURE 

: REMONTE LES POIN 
CHANCE" 

: ACCROIT TOUS LES 

: REMONTE LES POIN 
D'ENDURANCE" 

: PERMET DE FAIRE 

: SERT DE DESHERBA 

:GELE TOUT LIQUID 
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(REPLI 


GUS) " 

190 PRINT" 'ET POURQUOI DONC ?' (REPLI 

QUEZ-VOUS)" 

191 PRINT"»1 'PARCE QUE CE MARAIS EST P 

LEIN DE" 

192 PRINT"SORTILEGES ET QUE SANS POUVOIR 
S MAGIQUES" 

193 PRINT"WiEME TOI TU N'Y SURVIVRAIS PA 
S LONGTEMPS" 

194 PRINT"W MAIS EN ECHANGE DE QUELQUE 
S PETITES" 

195 PRINT"PIECES,JE VEUX BIEN TE PENSEIG 
NER SUR LACHOSE." 

196 PRINT"(IL VOUS TEND ALORS LA MAIN)" 

197 PR INT" VOUS HESITEZ UN MOMENT MAIS 
FINISSEZ" 

198 PRINT"PAR CEDER ET LUI DONNEZ LES DE 
RNIERES PIECES QU'IL VOUS RESTAIT. 

199 PR INT "TOUT HEUREUX, L.E PETIT ETRE EMP 
OCHE SON ARGENT ET COMMENCE A PARLER:" 

200 PR INTTAB (13) "»I«PRESSE Z ESPACE " 

201 GETS$: IFS*O.G0T0201 

202 PRINTM*:PR INT"»] IL Y A TROIS HOMME 
S DANS L.A VILLE" 

203 PRINT"QUI RECHERCHENT QUELQU'UN D'AS 
SEZ FOU" 

204 PRINT"POUR S'AVENTURER DANS LE MARAI 
S; " 

205 PRINT"TRAVAILLES POUR L'UN D'EUX ET 
TU SERAS RICHE ET CELEBRE." 

206 PRINT"LE PREMIER EST MARCHAND: IL TE 
PAYERA" 

207 PRINT"GENEREUSEMENT POUR UNE MISSION 
FACILE" 

208 PRINT"»LE SECOND EST UN BON SORCIER 
: CE QU'IL" 


209 PRINT"DEMANDE EST TRES FACILE MAIS I 
L EST" 

210 PRI NT "SI PAUVRE QUE CE QU'IL. OFFRE P 
OUR LE " 

211 PRINT"FAIRE EST TRES INSUFFISANT." 

212 PRINT"»LE TROISIEME EST UN MAUVAIS S 
ORCIER AU" 

213 PRINT"SERVICE DU MAL:IL EST PRET A T 
E COUVRIR" 

214 PRINT"D'OR SI TU MENES A BIEN UNE MI 
SSION TRES" 

215 PRINT"»DIFFICILE.'" 

216 PR I NTT AB (13) " »»F'RESSE Z ESPACE" 

217 GETS*:IFS*<>" "G0T0217 

218 PRINTM*SPRINT"»] AUSSITOT SON DISCO 
URS ACHEVE,LE NAIN" 

219 PRINT"SE SAUVE DE L'AUBERGE PUIS DIS 
PARAIT" 

220 PRINT"DANS UNE RUE SOMBRE." 

221 PRINT" VOUS PARTEZ DONC VOUS COUCH 
ER CAR DEMAIN,UNE DURE JOURNEE VOUS A 
TTEND 

222 DATA169,160,141,92,3,169,192,141,111 
,3,32,89,3,140,111,3 

223 DATA169,224,141,92,3,32,89,3,169,53, 
133,1,96,160,0, 162 

224 DATA167,132,98,1^4,99,177,98,145,98, 
200,208,249,238,92,3,173,92,3,201,167 

225 DATA208,231,169,76,162,174,160,167,1 
41,58,164,142,59,164,140,60,164,96 

226 F0RI=0T069:READZ:PQKEB28+I,ZïNEXT 

227 PRINT"WnimnET MAINTENANT PROCEDEZ PAR 
ORDRE:" 

228 PRI NT"»1 1/ NEW": PR INT" 2/ L.OAD 'PA 

RTIE 2'": PRINT" 3/ RUN 

READY. 


COMMODORE 64 8 128 


RETOURNEMENT 

Ce jeu de réflexion / stratégie vous permet de lutter contre 
l’ordinateur ou contre l’un de vos amis. Le but de la partie, prendre à 
l’adversaire un maximum de pièces. Les règles complètes sont 
expliquées dans le programme... 


5 PRINT'T]" : DIMfKSL 9) 

30 F0RI=1TÛ39 : E$=E$+" ":NEXT 
40 FOR I = 1T039 : E$=E$+ "II" : NEXT 
50 N$=“ 12345678" : B$="ï8" 

70 FORI=lTO20:D$=n$+":«" ^NEXT 
150 PR INT "CONNAIS TU LE JEU ? "; 
160 GOSUB6000 ■' I FX$= " 0 " THEN500 
180 PRINT"3" 

200 PRINT"CÉ JEU CE JOUE SUR UNE" 


PR INT 
PR INT 
PR INT 
PR I NT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 


"MATRICE 8X8." 

"UN PIONS POSE BOIT" 

"EN ENTOURE UN AUTRE" 
"ET CE BANS N•"IMPORTE" 
"QUEL SENS." 

"LES PIONS REVERSES" 
"COMPRIS ENTRE TON" 
"PION BEVIENNENT TIEN." 
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Il 


280 PR INT" -1-1-1-1-1-" 

290 PRINT" I 0 I 0 I 0 I O I •" 

300 PR INT"-1-1-1-1-1-" 

305 PRINT 

310 PRINT"EXEMPLE" 

325 PR INT "TTTnMMfl"; 

330 FORI=1TO30 

335 PR INT" §11"; : F0RL=1 TO200 •' NEXT 
340 PR INT" II" ; •• FÜRL=1 TÜ200 : NEXT 
345 NEXT 

350 print"§ i § i § i § i *mxm n 
360 PRINT"LE ORNANT EST CELUI QUI " 
370 PRINT"TERMINE AVEC LE PLUS DE " 
400 PRINT"PIONS" 

410 F2=3 

420 PRINT"MSI TU RENNÜNCES TAPPE" 
430 PR INT" SRI . " 

500 E=~l : W=1 

540 < B+1> = " ïi§B" : N$ < E+1 > = "NÜIR " 

550 D$ C 0+1> = " " 

560 D*CW+1)="§" :N$<W+1> = ":-©LANC" 

570 FORK-0TO7 : RE AD 1400, J4 C K > 

590 NEXT 

700 FORI=0TO9:FÜRJ=0TO9 

720 AC I,J>=0 : NEXTJ,I 

750 R C 4,4 > *W: A C 5,5)=W:BC=2: N1=4 

770 A C 4,5 > =E‘ : A C 5,4 > =B : S4=1 : S5=-2 

790 WC=BC:Z=0:F2=1 :S2=2: PRINT : PRINT 

800 PRINT"VEUX TU JOUER AVEC MOI ", 

810 GOSUB6000 : IFX$="N"THEN970 

820 F2=3 : PRINT ; PRINT 

920 PRINT"LES NOIRS COMMENCENT" 

930 PRINT"MVEUX TU NOIR OU BLANC"; 
940 GOSUE6000:1FX*<>"B"THEN970 
950 F2=2 : PRINT‘TJ" 

970 PR INT "3"; •' GOSUE3100 
1000 T1=B : T2*W 

1200 ON F2 GOSUB 8000,9000,8000 
1250 IFZ=1THEN1660 
1570 BC-BC+S1 +1 :WC=WC~S1 : N1=N1 +1 
1640 G0SUE3100 

1660 IFWC=80RN1=64ORZC0THEN2190 
2000 T1=W ■' T2=B 

2050 ON F2 GOSUB 8000,8000,9000 
2060 IFZ=1THEN2150 
2090 WC=WC+S 1 +1 •• BC-BC-S1 : N1 =N 1 +1 
2130 GOSUB3100 

21501FBC-0ORN1=64ORZ<0THEN2190 
2170 GOTO1000 

2190 PRINTD$; E $: PRINTE$: PRINTE$ 

2250 IFBC-WCTHEN2290 
2260 IFBOWCTHEN2310 
2270 PRINT" LES «BLANCS"",* 

2280 GOTO2320 
2290 PRINT"EGALITE! 

2300 GQTO2500 

2310 PRINT" LES" NOIRS"; 

2320 PRINT" ONT GAGNE!" 

2500 PRINT"VEUX TU REJOUER ?"; 


2501 PRINT" 

2520 GOSUB6000=I FX$= "0"THEN700 

2560 G0T064738 

2620 F1=0 

2625 FORI1=-1T01 

2630 FORT1=-1TOI 

2640 I FA CI +11, J+J1 =T2THEN2710 

2650 NEXTJ1,11 

2690 RETIJRN 

2710 F1=1 

2720 RETURN 

2820 S1=0 

2830 FORK=0TQ7 

2840 15=1400 

2850 J5=J4CK> 

2860 16=1+15 
2870 J6=J+J5 
2880 83=0 

2890 IFAC16, J6)OT2THEN3070 
2910 S3=S3+1 
2920 16=16+15 
2930 J6=J6+J5 

2940 IFACI6,J6>=T1THEN2970 

2950 IFAC16,J6>=0 THEN3070 

2960 GOTO2910 

2970 S1=S1+33 

2980 IFUO1THEN3070 

3000 16=1 

3010 J6=J 

3020 FORK1=0TOS3 

3030 AC 16,J6>=T1 

3048 16=16+15 

3050 J6=J6+J5 

3060 NEXTK1 

3070 NEXTK 

3080 RETURN 

3100 PR INT "8";" SŒ:: II" ; UC; "HH "; 

3102 FRiNT"&»iii»ii»ii»ir ; 

3103 PRINT"SRETOURNEMENT■" ; 

31 04 pr i nt " ; 

3105 PR i NT " i»i»»i»»»»»»i" ; 

3106 IFBCC10THENPRINT"M"; 

3107 PRINT" N•";BC"T* 

3110 X$= " I-1-1- [ -1-H" 

3111 X$=X$+"—I-1-1" 

3115 PRINTE* 

3120 PRINT" A B C D E"; 

3121 PRINT" F G H" 

3130 PRINT" .-1-.-1-1— 

3131 PRINT"—i-^-.-." 

3140 FQRI=1TÛ8 

3150 PRINT" "MI B$ CN$,1,1>" I "; 

3160 F0RJ=1T08 

3170 PR I NTD$ C A CI, J >+1 > " I "O NEXT J 
3185 -PRINT" "MID$CN$,I,1); 

3190 PR I NT : IFIOSTHENPRI NTX$ : NEXT I 

3220 PR I NT " 1 -'- 1 - 1 -'—" ; 

3221 PRINT"- 1 - 4 - 1 -'" 

3230 RETURN 
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4000 REM ROUTINE DE L'INPUT 
4020 I=-1 :J=I :FORK=1T02 
4110 GOSUBS000:G=fiSC < X#> 

4130 IF47-CGFINDGC58THENI=G-48 
4140 IFë4<GflNDG<?4THENJ=G-64 

4170 REMPRINT" a"X$"B :NEXT■RETÜ 

4171 PR INT" â"X:ï"B 11 ; : NEXT 

j!72 PRINT " ,, ; XX=1 : RETURN 

5000 REM MOUVEMENT 

5010 PRINTLEFT*<D*,2*«-l>+5); 

5011 PRINTSPC<4#<J-l)+5); 

5030 X$»D$<T1+1) 

5040 FQRK=1T05 

5050 PRINT" II"; :FORL=1TO200:NEXT 
5060 PRINTX$"II"; : FORL= 1TO200 : NEXT 
5078 NEXT■RETURN 
6000 REM CURSEUR 
6010 FORL=0TO9:GETXi:NEXT 
6020 GETXf: IFX$<>""THENRETURN 
6030 PR INT "^11" ; : FORL=l TO1O0 : NEXT 
6040 PR I NT " II" ; : FQRL=1TO100 : NEXT 


9010 El=-1:13=0 : J3=0 
9020 FORI = 1T08■FORJ=1 TOP 
9040 IF fl<I, JJO0THEN950R 
9060 GOSUB2620 
9080 IFF1=@THEN9500 
9100 U=-l 
9120 GOSUB2820 
9140 IFS1=0THEN9500 
9200 IF <I = 1> OR <I=8)THENS1 = 
9210 IF<J=1>0R(J=8>THENS1= 
9220 IF(I=2)ÛR(I=7)THENS1= 
9230 IF < J=2)OR CJ=7)THENS1 = 
9240 IF<I=3)0R<I=6>THENS1= 
9250 IF 0=3 >OR < J=6 > THENS1 = 
9300 IFS1<B1THEN9500 
9320 IFS1>B1THEN940O 
9340 IFRNDC1J>0.5THEN9500 
9400 B1=S1 •’ 13=1 ■’ J3=J 
9500 NEXTJ,I 
9520 IFB1>0THEN9700 
9540 IFS5=0THEN9600 
9560 S5=0 •' GOTO9000 
9600 PRINTD*"j«IB"E*N*CTl + n 


SI+32 
S1+S2 
S1+S5 
S1+S5 
S1+S4 
S1 +34 


9601 PRINT "H RENNONCE 
9620 IFZ=1THENZ=-Z■RETURN 
9640 Z=l:RETURN 
9700 I—13 : J=J3 

9721 IFXX=1THENPRINTE$:PRINT 
" : XX=0:GOTO9750 

9730 PRINTD$"WS"E*;" 

9731 PRINTN$CT1+1)"B 

9732 PRINT" 

9733 PRiNT”iaiiHaaiaai" ; 

9740 PRINT"Ü"CHR$<I+48}"■ ÿ". 

9741 PRINTCHR$ < J+64 > 

9750 GOSUB5000 

9800 2=0 : U= 1 •• GOSUB2820 
9900 RETURN 

rifl ™ 0-1--1,1,-1,0,-1,-1 
9902 DRTfl ,-1,1 ,-l, 





LA ROUE 
DE LA FORTUNE 


0:G0T02130 
1610 IF R 
OsG0T02130 
1620 IF R* 

OsG0T02130 
1630 REM - 
1640 IF R* 

" "s WB-l 

1650 IF RT="C" THEN SYS49176,0,0,9 
» ":WC=1 

1660 IF RT="D" THEN SYS49176,0,0, 1 
T" ":WD=1 

1670 IF RT="F" THEN SYS49176,0,0,1 
T" ":WF=1 

1680 IF RT="G" THEN SYS49176,0,0,1 
T" ":WG=1 

1690 IF RT="H" THEN SYS49176,0,0,1 
T" ":WH=1 

1700 IF RT= "-J 11 THEN SYS49176,0,0, 1 
T" "sWJ=l 

1710 IF RT="K" THEN 5YS49176,0,0,1 
T" ":WK=1 

1720 IF RT="L" THEN SYS49176,0,O,1 
T" ":WL=1 

1730 IF RT="M" THEN SYS49176,0,0, 1 
T" ":WM=1 

1740 IF RT="N" THEN SYS49176,0,.0,2 
T" ":WN=1 

1750 IF RT="P" THEN SYS49176,0,0,3 


20 PR INT CHRT(ll) 

30 P0KE2594,64:POKE 

40 GOTO 4000 

50 REM 

60 SCNCLR 

70 C0LÜR4,1 

80 COLüRo,1 

90 C0L0R5,2 

100 G0T041O 

110 PÜKE 2598,64 

120 SCNCLR 

130 PRINT"M 


Y"ANDWY=1 THEN SOUND 1 


Z"ANDWZ=1 THEN SOUND 1 


B" THEN BYS49176,0,0,8:PRINT 


ISAVANT DE COMMENCE 


140 PRINT"* 

150 PR INT' 

160 PRINT" W 
170 PRINT"*********** j 
■#•#********" 

180 PRINT"*" 

190 PRINT"QUEL EST LE 

200 INPUT HT 

210 IF LEN (HT) > 11 THEI 

MAXIMUM" : SL.EEP2: GOTO 1 : 

220 IF LEN(HT)=0 THEN 

230 PRINT 

240 PRINT 

250 PRINT"QUEL EST LE 
260 INPUTYT 
270 IF LEN(YT)>11 THE 
MAXIMUM":SLEEP2:G0T01 
280 IF LEN(YT)=0 THEN 


1760 IF RT="Q" THEN SYS49176,0,0, 
T" ":WQ=1 

1770 IF RT="R" THEN SYS49176,0,U, 
T" ":WR^1 

1780 IF RT="S" THEN SYS49176,O,0, 
T" ":WS=1 

1790 IF RT="T" THEN SYS49176,O,O, 
T" ":WT=1 

1800 IF RT="V" THEN SYS49176,0,0, 
T" ":WV=1 

1810 IF RT="W" THEN SYS49176,0,0, 
T" ":WW=1 

1820 -IF RT="X" THEN SYS49176,0, O, 


BIS UN INSTANT SVP 


340 PRINT " 

ISJB" 

350 PRINT" 

THEN SOUND 1,2000,2< 

1570 IF RT="U"ANDWU 
Os60T02130 
1580 IF RT="V"ANDWV 
OsG0T02130 
1590 IF RT 
0 : GOT02130 
1600 IF RT="X"ANDWX^1 THEN SOUND1 


1830 IF RT="Y" THEN SYS49176,0,0, 
T" "s WY=1 

1840 IF RT="Z" THEN SYS49176,O,0, 
T" ":WZ=1 

1850 REM"CCCCCCCCCCCCCCCCCCCCCCCC 


OU ND 1 


1 THEN 


W"ANDWW—1 THEN SOUND1,2000, 














1860 IF R*="A" OR R*="E" OR R*=" I " OR R$ 
= "0" OR R*="U" THEN GOTO 1950 
1870 W=0 

1880 IFR*="*-"THEN TT=CA: G0T03120 
1890 F0RQ=1TO A 
1900 Z*=MID*(A*,Q,1) 

1910 IF R*»Z* THEN SYS 52330,0,4,AS+QïPR 
I NT R* s W= 1 : SOUND 1, 10000,20 : CA=CA+1500 
1920 NEXTQ 

1930 IF WOITHEN SOUND 1,2000, 20: GOTO 21 
10 

1940 GOTO1250 

1950 REM .( A, E, 1,0, U). 

1960 IF CAC2000 THEN GOTO 1250 
1970 CA=CA—2000 
1980 JM=0 

1990 IF R$="E" THEN SYS49176,0,0,11ïPRIN 
T" ":WE=1 

2000 IF R*="I" THEN SYS49176,0,0, 15: PRIN 
T" M ïWI=l 

2010 IF R*="ü" THEN SYS49176,O,0,21:PRIN 
T" ":W0=1 

2020 IF R*-"U" THEN SYS49176,0,0,27sPRIN 
T" ":WU=1 

2030 IF R*="A" THEN SYS49176,0, 0, 7: PR INT 

" " :WA=1 

2040 FOR G=1 TO A 

2050 Z*=MID*<A*,G,1) 

2060 IF R*=Z* THEN SYS 52330,0,4,AS+G:PR 
INT R*sSOUND1,10000,20:JM=1 
2070 NEXT G 

2080 IF JM<>1THEN SOUND1,2000,20:G0T0213 
0 

2090 GOTO 1250 

2100 REM ***************•*•*•**•** 

2110 REM * JOUEUR NUMERO DEUX* 

2120 REM ********************* 

2130 SYS49176,0, 22, 19 : PR I NT " ISO- > " 

2140 SYS49176,0,13,2: PRINT"UNE LETTRE :" 
ïRD* 

2150 IF SCC 10000 THEN SYS49176,0,20,34s P 
RINT" " 

2160 IF SCC 1000 THEN SYS49176,0,20,33s P 
RINT" " 

2170 SYS49176,0,20,29: PRINTSC 

2180 IF CACl0000 THEN SYS49176,0,20,9:PR 

INT" " 

2190 IF CAC 1000 THEN SYS49176,0,20,8s PR 
INT" " 

2200 SYS49176,0,20,4: PRINTCA 
2210 GETKEY RD*;REM R* 

2220 IF RD*=" " THEN GOTO 2210 

2230 REM - 

2240 REM 

2250 IFRD$="A"ANDWA=1 THEN SOUND1,2000,2 
Os GOTO1240 

2260 IFRD*="B"ANDWB=1 THEN SOUND1,2000,2 
Os GOTO1240 

2270 IFRD*="C"ANDWC=1 THEN S0UND1,2000,2 
Os GOTO1240 

2280 IFRD*="D"ANDWD=1 THEN SOUND1,2000,2 
0:GOTO1240 

2290 IFRD*="E"ANDWE=1 THEN SOUND1,2000,2 
Os GOTO1240 


2300 IFRD*= 
Os GOTO1240 
2310 IFRD*= 
Os GOTO1240 
2320 IFRD*= 
Os GOTO1240 
2330 IFRD*= 
Os GOTO1240 
2340 IFRD*= 
Os GOTO1240 
2350 IFRD*= 
O: GOTO1240 
2360 IFRD*= 
Os GOTO1240 
2370 IFRD*= 
0: GOTO1240 
2380 IFRD*= 
Os GOTO1240 
2390 IFRD*= 
Os GOTO1240 
2400 IFRD*= 
Os GOTO1240 
2410 IFRD*= 
Os GOTO1240 
2420 IFRD*= 
Os GOTO1240 
2430 IFRD*= 
Os GOTO1240 
2440 IFRD*= 
Os GOTO1240 
2450 IFRD*= 
Os GOTO1240 
2460 IFRD*= 
Os GOTO1240 
2470 IFRD*= 
Os G0T01240 
2480 IFRD*= 
Os GOTO1240 
2490 IFRD*= 
Os GOTO1240 
2500 IFRD*= 
Os GOTO1240 
2510 REM 
2520 REM — 
2530 IFRD*= 
" "sWB=l 
2540 IFRD*- 
" "s WC=1 
2550 IFRD*= 
T" "s WD=1 
2560 IFRD*= 
T" "s WF= 1 
2570 IFRD*= 
T" "s WG=1 
2580 IFRD*= 
T" "sWH=l 
2590 IFRD$= 
T" "s WJ=1 
2600 IFRD*= 
T" "s WK=1 
2610 IFRD*= 
T" "s WL=1 
2620 IFRD*= 
T" "sWM=l 


="F"ANDWF=1 THEN SOUND1,2000,2 


="G"ANDWG”1 THEN SOUND1,2000,2' 
= "H"ANDWH=1 THEN SOUND 1,2000,2 
="I"ANDWI=1 THEN SOUND1,2000,2 
="J"ANDWJ=1 THEN SOUND1,2000,2 
="K"ANDWK=1 THEN SOUND1,2000,2 
="L"ANDWL=1 THEN SOUND1,2000,2 
="M"ANDWM=1 THEN SOUND1,2000,2 
= "N"ANDWN=1 THEN SOUND 1,2000,2 
="0"ANDWQ=1 THEN SOUND1,2000,2 
="P"ANDWP=1 THEN SOUND1,2000,2 
="Q"ANDWQ=1 THEN SOUND1,2000,2 
="R"ANDWR—1 THEN SOUND1,2000,2 
="S"ANDWS=1 THEN SOUND1,2000,2 
="T"ANDWT=1 THEN SOUND1,2000,2 
= "U"ANDWU=1 THEN SOUND1,2000,2 
="V"ANDWV=1 THEN SOUND 1 ,2000,2 
="W"ANDWW=1 THEN SOUND 1 ,2000,2 
="X"ANDWX=1 THEN SOUND1,2000,2 
="Y"ANDWY=1 THEN SOUND 1 ,2000,2 
="Z"ANDWZ=1 THEN SOUND1,2000,2 


="B" THEN SYS49176,0,0,8sPRINT 
= "C" THEN SYS49176,0,0,9s PRINT 
= "D" THEN SYS49176,0,0,10 s PRIN 
="F" THEN SYS49176,0,0,12sPRIN 
="G" THEN SYS49176,0,0,13sPRIN 
="H" THEN SYS49176,0,0,14sPRIN 
= "J" THEN SYS49176,0,0,16sPRIN 
= "K" THEN SYS49176,0,0,17s PRIN 
="L" THEN SYS49176,0,0,18sPRIN 
= "M" THEN SYS49176,0,0,19s PRIN 
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:0 s PR IN 


3050 J*®"-" 

3060 IF E*=X* THENSY54917 
T E*:F® 1 

3070 IF G*=X* THENSYS491/ 
T G*sE=l 

3080 IF T*=X* THENSYS491. 
T J*:G=1 
3090 NEXTH 
3100 GOTO1230 
3110 REM ********** 
♦SOLUTION* 
********** 

3120 SYS49176,0,15,0: INPI 
3150 ÏF W*=A*THEN G0T056 
A* AND TT=CA 


2630 IFRD*="N" THEN SVS49 1 / 6 ,u,u 
T" ":WN=1 

2640 IFRD*="P" THEN SYS49176,U,O 
T" “ï WP®1 

2650 IFRD*="Q" THEN SYS49176,0,0 
T" ":WQ®1 

2660 IFRD*®"R" THEN SYS49176,O,O 
T" ":WR=1 

2670 IFRD*="S" THEN SYS49176,0,O 
T" ":WS®1 

2680 IF"RD*= 11 T " THEN SYS49176,0, O 
T" ":WT=1 

2690 IFRD*="V" THEN SYS49176,0,O 
T" ":WV=1 

2700 IFF<D*= " W " THEN SYS49176,0, <. 

T" ":WW®1 
2710 IFRD*®"X 

T" " :WX==1 . . 

2720 I FRD*® " Y " THEN S Y S49176,0, O, 1 : F k IN 

T" ":WY®1 

2730 IFRD*®"Z" THEN SYS49176,0,0,--2: PRIN 

T" ":WZ~1 

2740 REM 00000 

2750 IF RD*®"A" OR RD*="E" OR RD*®"I" OR 
~RD*="0" OR RD*®"U" THEN GOTO 2840 

2760 M h ~ 0 : R E M 7 V 

2770 IFRD*® "«-"THEN TT=SCsG0T031 
2780 FORL®1TO A:REM Q 
2790 2*®MID* (A*, L, 1 ) 

2800 IF RD*®Z* THEN SYS 52330,1 
RINT RD* sMM®1 : SOUND1,10000,20: S 
2810 NEXTL 

2820 IF MM < >1 T HEN SGUND1,20UO,ü 
50 

2830 G0T02110 

2840 REM . (A,E,1,0,U)--.. 

2850 IF SC<2000 THEN GOTO 2130 
2860 SC == SC-2000 
2870 FM=0 

2880 IFRD*®"E" THEN SYS49176,0 
T" ":WE®1 
2890 IFRD*®"I 
T " " : WI ® 1 
2900 IFRD*®"0 
T" ":W0®1 

2910 IFRD*®"U" THEN SYS49176,0,0, 27: F*R1N 
T" ":WU®1 

2920 IFRD*®"A" THEN 5YS49176,0,0,7: F'RINT 

" : WA® 1 

2930 FOR K=1 TO A 

2940 Z*=MID*(A*,K,1) 

2950 IF RD*=Z* THEN SYS 52330,0,4,VS+KsP 
RINT RD*: SOUND1,10000,20s FM®1 

2960 NEXT K ^ 

2970 IF FMOITHEN S0UND1,2000, 20: G0T0125 


PR IN 


:6 s PR IN 


:8 s PR IN 


3140 IFW*< 

15,Os PR INT 

":G0T02130 

3150 IFW*OA* AND TT=SC 
15,O:PRINT" 

"-.GOTO 1250 

3160 END 
3170 REM 


THEN SYS49176,0,O 


THEN SYS49176,0 


DATA 


0: GOTO 1 


FRI N 


THEN SYS49176,0,0,21 : PRIN 


980 GOTO 2130 
990 REM ***** 


3470 DATA POUBELLE DE I mdLc , uimc. unuoc 
3480 DATA L'ABBE PREVOST,UNE PERSONNE 
3490 DATA NAPOLEON,UNE PERSONNE 
3500 REM —>20 

3510 DATA PLUS BEAU QUE MOI TU MEURS,UN 
TITRE 

3520 DATA LE MARGINAL,UN TITRE 


3000 F0RH =1T0A 
3010 X*=MID*(A*,H 
3020 E*=" " 

3030 G*=. 

3040 T*®"-" 



















3530 DATA MICHEL PLATINI,UNE PERSONNE 

4120 FOR G=1TÜ 13 

3540 DATA EXPERT COMPTABLE,UN METIER 

4130 D=D+15 

3550 DATA MARCHE A L'OMBRE,UN TITRE 

4140 BOX 1,25+D, 125,35+D,140,0, 1 

3560 DATA LES RIPOUX,UN TITRE 

4150 NEXT G 

3570 DATA BOUTEILLE DE VIN,UNE CHOSE 

4160 BOX 1,55, 85,65,100,0,1 

3580 DATA TROIS HOMMES ET UN BEBE,UN TIT 

4170 BOX 1,70, 85,80,100,0,1 

RE 

4180 BOX 1,235, 85,245,100,0, 1 

3590 DATA LA PRINCESSE DE CLEVES,UN TITR 

4190 BOX 1,55,105,65,120,0,1 

E 

4200 BOX 1,70,105,80,120,0,1 

3600 DATA A BON CHAT BON RAT,UN PROVERBE 

4210 BOX 1,235,105,245,120,0,1 

3610 REM —>30 

4220 FORR=1TO 10 

3620 A$=M*(P,1> 

4230 BOX 1,85+U, 85,95+U,100,0,0 

3630 SLOW 

4240 U=U+15 

3640 5CNCLR 

4250 NEXTR 

3650 PRINT 

4260 REM ICI 

3660 PRINT 

4270 U=0 

3670 PRINTSPRINT:PRINT 

4280 F0RR=1TO 10 

3680 S0UND2,20000,50,0,2000,100 

4290 BOX 1,85+U,105,95+U,120,0,0 

3690 PR INT 11 VOUS DEVEZ DECOUVRIR 

4300 U=U+15 

II 

4310 NEXTR 

3700 PR INT" IST ; M$ <P, 2) 

4320 REM LETTRE 

3710 PRINT: PRINT: PRINT 

4330 REM -L- 

3720 SLEEP 3 

4340 DRAW,88, 88 TO 88,098 T093, 98 

3730 GOTO 840 

4350 DRAW,88,108 TO 88,118 TO 93,118 

3740 REM ************ 

4360 REM -A- 

3750 REM ***GAGNEî *** 

4370 DRAW,102, 98 TO 102, 88 TO 108, 88 

3760 RE”M ************ 

TO 108, 98 

3770 SCNCLR 

4380 DRAW,102, 92 TO 108, 92 

3780 FORG-1T08 

4390 DRAW,102,118 TO 102,108 TO 108,108 

3790 CQL0R5,G 

TOI08,118 

3800 SYS 49176,0,2,15s PRINT " BRAVO" 

4400 DRAW,102,112 TO 108,112 

3810 SYS 49176,0,3,15s PRINT" 

4410 REM -R- 

3820 SLEEPO.5 

4420 DRAW,132, 98 TO 132, 88 TO 138, 88 

3830 NEXT G 

TO 138, 93 TO 132, 93 

3840 IF TT--CA THEN JK*=H* 

4430 DRAW,136, 93 TO 138, 98 

3850 IF TT-SG THEN JK*=Y* 

4440 REM -0-- 

3860 PR INT : PR INT: PRINT 

4450 CIRCLE,150, 93,3,6 

3870 PR I NT " WT; ' EST B I EN IST ; JK* ; 11 IS, " ; 

4460 REM -U- 

3880 PRINT"LA SOLUTION ETAI TW " 

4470 DRAW,162, 87 TO 162, 98 TO 168, 98 

3890 PRINTA* 

TO 168, 87 

3900 PRINT 

4480 REM-E- 

3910 PRI NT " SVÜS- GA I NS POUR CETTE -M3URER 

4490 DRAW,183, 87 TO 177, 87 TO 177, 98 

PARTIE -fi- SONT: " 

TO 183, 98 

3920 IF TT=0 THEN TT=1000 

4500 DRAW,177, 93 TO 180, 93 

3930 PRINT "W , "; TT; " FRANCS" 

4510 REM -D- 

3940 PR INT 

4520 DRAW,207, 87 TO 207, 98 TO 210, 98 

3950 PRINT 

TO 213, 95 TO 213, 90 TO 210, 87TÜ207,B7 

3960 PR INT 

4530 REM-E- 


4540 DRAW,228, 87 TO 222, 87 TO 222, 98 

SPACE '" 

TO 228, 98 

3980 GETKEY VT 

4550 DRAW,222, 93 TO 225, 93 

3990 RUN 50 

4560 REM F 

4000 REM ************** 

4570 DRAW,138,108 TO 132,108 TO 132,118 

4010 REM «PRESENTATION* 

4580 DRAW,132,113 TO 135,113 

4020 REM ************** 

4590 REM-O- 

4030 C0LQR4,1 

4600 CIRCLE,150,113,3,6 

4040 COLORO,1 

4610 REM-R- 

4050 COLOR1,8 

4620 DRAW,162,118T0162,108T0168,108T0168 

4060 GRAPHIC2,1 

,113T0162,113 

4070 FOR D-1T013 

4630 DRAW,165,113 TO 168,118 

4080 F--F+15 

4640 REM-T- 

4090 BOX 1,40+F, 65,50+F, 80,0,1 

4650 DRAW,177,108 TO 183,108 

4100 NEXTD 

4660 DRAW,180,108 TO 180,118 

4110 D=15 

-- 

4670 REM-U- 







107T0 192,118T0198,1181019 


4680 DRAW,19 
4700 DRAW?207,11BT0207,107T0213,118 T0 2 

4720 DRA W ?228,107T0222,10770222,118X0226 

4730 DRAW, 222,U3T0 225,113 
4740 COL OR 5, 3 

4750 CHAR,6,18,-(C)1987 PAR JEROME MIRRE 

4 7*0 p*».. JEROME MIRBEY ?, TILT P 

RESENTENT LE CELEBRE JEU TELEVISE ** LA 

4770 ^.« + ™« U SPACÊ >> "f'OUR COMMENCER" 
4780 SYS49176,0,20,0: PR1NT"H- 


cr H o, ) PR I NT " p 

R E SSE Z SUR E S P A C E":RETURN 


5 ? i o M= 16 : G0SUB5230 : M= 13 : G0SUB523O : M* 1 - ’■ 
G0SUB5230:M=1 :G0SUB5230:M=1 :GOSUBb^O ^ 
5220 M=12:GOSUB5230:M=13:G0SUB523O:M 16: 
GÜSUB5230: M=2:G0SUB5230:GDI 052lü 
5230 C0L0R5,MsGETBA*:IFBA*=" "THEN GOTO 

5240 FOR BV=Û T025 : NEXTBV: G0SIJB5190: RET 
URN 

■=••-■50 REM 


4790 SYS49176,0,21,0 : PR I NT " IS» 


IS 9 


4800 SYS49176,0, 22,0 : PRINT 11 ii "I* 

.tatii * 


4820 B**RI6HT$<B*,120)+LEFT*(B$,1>:C* LE 

4830^ A== INT (RND ( 1 ) *14) +2: C0L0R5, A: SY84917 
6,0,21,1 : PRINT ;C$ 


THEN GOTO 4870 


*************** 
*RE6LES DU JEU* 
*************** 


ISREGLES DU JEU" 


4840 GET A*: IF A*=" 

4850 G0T04820 
4870 CLP : G R A P HIC0 
4880 RUN 50 
4890 END 
4900 REM 
4910 REM 
4920 REM 
4930 SCNCLR 
4940 C0L0R5,8 
4950 PRINT" 

4960 PRINT 

4970 PRINT „„ T _ , 

4990 PRINT"VOUS DEVEZ DECOUVRIR SOIT: 

4990 PRINT 

5000 PR INT" -UN OBJET" 

5010 PRINT"-UN PROVERBE" 

5020 PRINT"-UN LIEU" 

5030 PRINT"-UNE PERSONNE" 

5040 PR INT"-UN METIER" 

5050 PRINT"-UN EVENEMENT" 

5060 PRINT"-UNE EXPRESSION" 

5080 PR INT"CHAQUE BONNE CONSONNE VOUS RA 
PPORTE" 

5090 PRINT"1500 FRANCS" 

5100 PRINT 
ONNE LE" 

5.110 PR INT 

«1» PRINT-UNE VOYELLE VOUS COUTE 2000F" 


5260 IF BA$~" "THEN GOTO 5280 
5270 IF BA$<>" " THEN GOTO 5250 
5280 SCNCLR 

5290 PR INT" 4-" . r 

5300 PRINT"UN TABLEAU VOUS MONTRE LES LE 

5310^PRINT"DEJA PROPOSEES" 

5330 PRINT"-SI VOUS AVEZ TROUVE LA BONNE 

SOLUTION" 

5340 PRINT 

5350 PR I NT " PRESSE Z SUR 

5370 PR INT " ISIATTENTIONIS DE NE PAS OUBLIER 
LE - OU ' QUAND VOUS ECRIVEZ VOTRE SO 

LUT ION CAR" 

5390 RRINT"L'ORDINATEUR NE VOUS NE LE PA 
RDQNNERA" 

5400 PRINT"PAS" 

5420 RRINT"IL PASSERA AU JOUEUR SUIVANT 

iii>< 

5440 PRINT"SI VOUS AVEZ 0 FRANC DANS VOT 

5450 A PrTnT"L'ORDINATEUR CREDITE VOTRE CO 
MPTE DE " 

460 PRINT"1000 FRANCS" 

5 ,490 PR INT" «««BONNE CHANCE» 


SI CETTE CONSONNE N'EST PAS B 
'JOUEUR SUIVANT JOUE" 


5140 PRINT 
5.150 PR INT "PB 
E COMME ONE" 

5 160 PR J. NT " VOYELLE " 
5170 PRINT 


LE 'Y* N'EST PAS CONSIDER 


500 PR INT 
5510 PR INT 
5520 PR INT 


5530 GOTO 5550 

5 54Q pr i NT " F 

R E S S E Z SUR ES P AC E":RETURN 

CT CT C p- n L;; E 1 9 8.0 

5560 M=16:G0SUB5580:M=13:G0SUB55S0 :M==12: 
G0SUB5580:M=1:G0SUB5580:M=1:GÜSUB5580 
5570 M= 12 s G0SUB5580 : M= 13 : G0SUB5580 : M«= 16 : 
G0SUB5580:M=2:G0SUB5580:U0T05560 
5580 C0L0R5,M:GETBA*:IFBA*=" "THEN GOTO 

5590 FOR BV=0 T025 :NEXTBV:G0SUB5540: RE 
URN 

5600 EÊM 

5610 IF BA$=" "THEN GOTO 400 
5620 IF BA$<>" " THEN GOTQ 5610 
5630 REM —GAGNE— 






5650 C0L.GR5, G 

5680 NEXT G 

5660 SYS49176,0,4, (AS+1) : PRINT A* 

5690 SLEEP 2 

56 7 0 SLEEP 0.5 

5700 GOTO 3740 


COMMODORE 64 & Î28 

SPRITE 2 

Le Commodore s’atèle une fois encore à la création de sprites. 

Sprites 2 reprend les fonctions de Création Sprites, avec pourtant des performances 
moindres. Par contre, le listing est bien plus court à taper! 

Le listing comporte deux programmes qu'il faut taper et sauver à la suite. 


LISTING N° 1 

5 A=0:B=357:C=0 

10 READAïPQKE32768+0,A :B = B-1î0 = 0+1 : PRINT 
n "«pc(17);b:c=c+a 
20 IFB=0THEN80 
30 GOTO10 
40 PRINT"CS® y lEW" 

50 PRINT"g® J r"+CHR$<34)+"SPRITE 2 n +CHR$< 
34>+",8" 

60 PRINT^gEEEpUNg”; 

70 P0KE631,13:P0KE632,13:P0KE633,13:P0KE 
198,3:END 

80 I FC038975THENPRI NT"ERREUR DANS LES D 
ATAS.": END 
90 GOTO40 

100 DATA162,0,160,0,189,64,3,41,128,240, 
5,169,0,76,18,128,169 

110 DATAI1,153,0,216,78,8,128,144,13,169 

,128,141.3,128,232,224,63 

120 DATA208,3,76,66,128,200,192,24,208,2 

16,173,19,128,141,54,128,24 

130 DATA 105,40,201,248,176,3,238,20, 128, 

141,19,128,76,2,128,169,216 

140 DATA162,0,141,20,128,142,19,128,96,1 

62,0,94,64,3,126,65,3 

150 DATA126,66,3,144,9,169,128,24,125,64 
,3,157,64,3,232,232,232 

160 DATA224,63,208,229,96,162,0,30,64,3, 
62,66,3,62,65,3,144 

170 DATA3,254,64,3,232,232,232,224,63,20 
8,235,96,162,0,189,64,3 

180 DATA 157,61,3,232,224,63,208,24^5, 173, 
61,3,174,62,3,172,63,3 

190 DATA141,124,3,142,125,3,140,126,3,96 
,162,62,189,64,3,157,67 

200 DATA3,202,224,255,208,245,173,127,3, 
174,128,3,172,129,3,141,64 
210 DATA3,142,65,3,140,66,3,96,162,0,160 
,0,30,64,3,110,63 


220 DATA3,200,192,8,208,245,160,0,30,65, 
3,126,64,3,200,192,8 

230 DATA208,245,189,64,3,157,65,3,160,0, 
30,66,3,126,64,3,200 

240 DATA192,8,208,245,173,63,3,157,66,3, 
232,232,232,224,63,208,198 
250 DATA96,162,0,189,14,129,157,221,7,23 
2,224,9,208,245,96,2,1 

260 DATAI4,3,5,12,32,56,56,162,0,160,60, 
189,64,3,153,127,3 

270 DATA232,200,189,64,3,153,127,3,232,2 

00,189,64,3,153,127,3,232 

280 DATA136,136,136,136,136,224,63,208,2 

24,162,0,189,127,3,157,64,3 

290 DATA232,224,63,208,245,96,169,8,162, 

8,160,1,32,186,255,169,16 

300 DATA162,0,160,144,32,189,255,169,0,3 

2,213,255,32,231,255,96,165 


LISTING N° 2 

80 PRINTCHR* (14) ïGQSUB2100 
90 GOSUB2000Ï TE=32768: Q'=5S732 
100 C1=0:C2=11: PRINTCHR*(8):POKE53280,15 
:P0KE53281,15: PRINT" Q" ï 
110 F0RI = 1T021 î PRINT" nH3 

r 

120 PR INT "g 0 B" : 

NEXTI: PRINT"B" ; 

130 FQRI=0TO5:P0KE646,C2:PRINTSPC(30) ' TH 
B’ : PRINTSPC(31)"BS ":NEXT 

140 PR INTSPC ( 29 ) CHR* (144)" ®T“II -, fV* î " 

150 PRINTSPC(26)"-OULEURS 
160 PRINTSPC(26)"“ILAT X 2< Y" 

170 PRINTSPC(26)"-EGALE 
180 PRINTSPC(26)"XIRRÜIR 
190 PRINTSPC(26)"-HARGE 

200 PRINTSPC(26)"*AUVE ": PR INTSPC(2 

6)"“FFACE 

220 POKE327B0,Cl:P0KE32785,C2 
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230 X =0:Y=0:SYSTEM:P0KE53277,O:P0KE53287 
Cl:SYS33024 

240 PQKE53269,1 :P0KE53264,1 :P0KE53248,19 

:P0KE53249,64:P0KE2040,13:P0KE53271,O 

26Ô F'OKE 1024+X+ ( 40*Y ) , 219 

270 GETA$:IFA$=""THEN270 

280 IFA$="0" THEN360 

290 IFA*="CTTHEN380 

300 IFA$=" B' THEN400 

310 IFA$="H"THEN420 

320 IFA$=" "THEN440 

330 IFA$="Z"THEN480 

340 IFA*=CHR*(13)THEN510 

350 G0TÜ270 

360 IFY=20THEN27O 

370 Y=Y+1:P0KE1024+X+ <40*(Y-l> >,PEEK(102 
4+X+(40*(Y-l)))-59:G0T0260 
380 IFY—0THEN270 

390 Y-Y-l:P0KE1024+X+ <40*(Y+l)),PEEK(102 
4+X+(40*(Y+l>))-59:G0T0260 
400 IFX-23THEN270 

410 X-X+l:P0KE1024+(X-l>+<40*Y),PEEK(102 
4+ < X-l) +(40*Y))-59:G0T0260 
420 IFX=0THEN270 

430 X = X-1:P0KE1024+ < X + l ) + <40*Y),PEEK(102 

4+(X+l)+(40*Y))-59:GÜT0260 

440 A=832+INT((X+<Y*24))/8):B=(X+(Y*24)) 

-(8*1NT(<X+<Y*24))/8)) 

450 POKEA,PEEK(A)OR 128/(2TB) 

460 A-55296+X+(Y*40) 

470 POKEA,Cl:G0TÜ260 

480 A=832+INT<<X+(Y*24))/8):B=(X+(Y*24)) 

-(8*1NT < <X+(Y*24))/8)) 

490 POKEA,PEEK(A)AND255-(128/ (2 TB)):A-55 
296+X+<Y*40) 

500 POKEA,C2:G0T0260 
510 P=0:D=2:J=0 

520 A—1410+ <P*40) : FORI—0T010: F'OKEA+I, PEE 

K(A+I)+128:NEXT 

530 GETA$:IFA$=""THEN530 

540 IFA$=" ®" THEN590 

550 IFA$=" G" THEN610 

560 IFA*=CHR*(13)THEN640 

570 IFA$= " +•" THEN630 

580 G0T0530 

590 FORI-0T010: F'OKEA+I, PEEK ( A+I ) -128: NEX 
T: IFP - —6THENP=0: G0T0520 
600 P-P+l:G01 0520 

610 FOR Iss0TO 10: P0KEA+1, PEEK ( A+1)~129:NEX 
T:IFP=0THENP=6:G0T0520 
620 P-P-l:G0T0520 

630 F0RI=0T010: F'OKEA+I, PEEK (A+I ) -128: NEX 
T:G0T0270 

640 FOR I =0T010 : F'OKE A+1, RE EK ( A+1 ) -128 : NE X 
T 

650 IFF'=0THEN720 
660 I FF' -1THEN910 
670 IFF-2THEN1O10 
680 IFF-3THEN1090 
690 IFF-4THEN1150 
700 IFF-5THEN1200 
710 IFP=6THEN1290 

720 P0KE211,4: F'OKE214,23: SYSQ : PR I NT " SF'R I 
TE : "C0$ (Cl ) : F'RINT" FOND : " ; 

725 F'RINTCÜ$ (C2) ; 


730 GETA*:IFA*=""THEN730 
740 IFA*= ,, 1"THEN800 
750 IFA$="□"THEN820 
760 I FA$=" U" THEN850 
770 IFA$=" B" THEN870 

780 IFA*=CHR*(13)THENG0SUB2040:G0T0270 
790 GQTO730 

800 C1=C1 +1 : IFC1 = 16THENC1=0 
810 G0T0B30 

820 C1=C1-1:IFC1--1THENC1=15 

830 P0KE32780,C1: SYSTEM:P0KE53287,C1 : PO 

E211,13:P0KE214,23: SYSQ 

840 PRINT"fi" CO*(Cl); :G0TQ730 

850 C2=C2+1:IFC2=16THENC2=0 

860 G0T0880 

870 C2=C2-1:IFC2=-1THENC2-15 
880 P0KE32785,C2: SYSTEM:G0SUB900 
890 F'OKE211, 13: F'OKE214,24: SYSQ: F'RINT "fi" 
0*(C2) -, : G0T0730 

900 F'RINT"@" J : FQRI-1T06: P0KE646, C2: F'RII' 1 

SPC(30)"0 g" :NEXT:RETURN 

910 P0KE211,5:P0KE214,23:SYSQ:PRINT" IL 

T X b. Y": 0=53271 : R=53277 

920 GETA*: IFA*=""THEN910 

930 IF A*=" ®" ORA*=" □" THEN970 

940 IFA$="H' , ORA$="B" then990 

950 IFA*-CHR*(13)THENG0SUB2040:G0T0270 

960 G0T0920 

970 F'OKEO, ABS ( PEEK ( 0 ) -1 ) : IF PEEK ( 0 ) = 1 THE 

P0KE53249,55:G0T0920 

980 PQKE53249,64:G0T0920 

990 POKER, ABS (PEEK (R) -1 ) : IFF'EEK (R) = lTHt 

P0KE53248,8:G0T0920 

1000 P0KE53248,19:G0T0920 

1010 F'OKE211,5: P0KE214, 23 : SYSQ : F'R I NT " “i 

RAGE DU SPRITE."; : 

1020 GETA*: IFA$=""THEN1020 
1030 IF A*=" ®" THENSYS32931 : SYSTEM: GOTO1 

1040 IFA*«"n"THENSYS32899:SYSTEM:G0T01 

1050 IFA*="fl"THENSYS32845:SYSTEM:G0T01 

1060 IFA$="B ,,THENSYS3,2875: SYSTEM: GOTOl 

1070 IFAS=CHR*(13)THENG0SUB2040:GÜT027 
1080 GOTO1020 

1090 PQKE211,5:P0KE214,23:SYSQ:PRINT"- 
OURNE LE SPRITE"-, 

1100 GETA*: IFA* r -" "THEN1100 

1110 IFA*=" H" ORA*=" 0" THENSYS33047:SYST 

:GOTOl100 

1120 IFA^="B‘ , ORA$ : - : " B" THENSYS32963: SYS T 

:GOTOl100 _ 

1130 IFA*=CHR*(13)THENG0SUB2040:G0T02/ 

1140 GOTOl100 

1150 pr i nt " ç3gtebiiiigeu?pppff*>fciB~ v ' IARGE|v1Ë 

D'UN SPRITE" 

1160 PR I NT " [nTn TBlBifil -QM DU FICHIER" : F'R INI 
- DE 10 CARACTERES) : "', 

1170 ’INFUTA*: IFLEN (A*) > 1OTHENB*=LEFT* ( 
,10):A*=B*: GOTO1180 

1175 DA=LEN(A*):F0RI-1T010-DA:A*=A*+" 
NEXTI 

1180 A*=A*+ " . SF'RED " : FOR I = 1TO16 : P0KE36Ê 
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+1,ASC(MID*(A$,1,1)):NEXT:SYS33097 
1190 GOTO100 

1200 PR I NT " Bhhhlife lWito—mg l»AUVEGARnF D 
U SPRIfE" 

1210 PR I NT "IfilsüüElU'-'OM DU FICHIER 
B<- DE 10 CARACTERES ) : ». 

1220 INPUTA*:IFLEN(A*)=>10THENA$=LEFT$(A 
* , 10) 

1 ^^.O DA=LEN (A*) : FORI = 1T010-DA: A*=A$+" 

NEü X T 

1240 A*»A$+". SPRED lf 

1 h 42 P ^ INT "Œ®5AVE"+CHR$ (34) +A*+CHR* (34) 
+ » S » 1 " 

1245 PRINT"gï|BpOKE43,p-(251) : 

52): PT45,P (253): PP46,P~(254) 

1247 FORI=0T03:P0KE251+I,PEEK 
I:PRINT"@"; 

1250 P0KE44,3s P0KE43,64s P0KE4 
6,3:P0KE631,13:P0KE632,13:POK 
1260 PR I NT 11 0ÜPOKE43, P" ( 251 ) : 

52): FT45, P~ (253):Pr46,P~(254) 

1270 FORI=0T03:P0KE251+I,PEEK 
I : PR INT "g" ; 

1280 P0KE44,3:P0KE43,64:P0KE4 
6,3: P0KE631,13:P0KE632,13:POKI 


1350 FORI=832T0832+63:POKE 
M:G0SUB204O:P0KE204,1 : GOTO 
2000 DIMCO*(15):F0RI=0T015 
XT:RETURN 

2010 DATA"NOIR ","BLANC 
TURQ. ","POURPRE","VERT 
2020 DATA"JAUNE ","ORANGE 
ROSE ","GRIS 1 ","GRIS 2 
2030 DATA"BLEU CL","GRIS 3 
2040 FORI = 1940T02010:POKE1,32:NEX T :RETUR 

2100 PQK E53280, 0: P0KE53281,0: PRINT"{^TgfijS! 
Bi»mi>~L-. | - , | r_" 

2110 PRINT"|UBJ—ONCU PAR EN 08-8 

SPRITE Q UE VOUS ALLEZ DES 
:>INER SERA SAUVE EN 832 ET SUIVANTES "• 

2130 PR INT" -sL SERA DONC REUTILISABLE SO 
JS BAS IC • 11 

Ï14Ô F'RINT"g@ JOUCHES UTILISEES: TOUCHE 
- 1 ♦, IARRE » 

lI^o PRINT"HEgi|iggfflao- RESSEZ UNE T0UCHE „ 

Î160 WAIT198,1:RETURN 


PR INT 


'ROUGE 
BLEU 
BRUN 
VERT CL 


NEXT 


Ce programme vous permettra de créer des sprites. Il se 
compose de deux listings. Le premier est un chargeur de 
données et le loader du second listing. Le second est 
I éditeur en lui même. Vous disposez des fonctions 
habituelle qu’on peut retrouver dans ce genre de 
programme: agrandissement, miroir, chargement d’un 
spnte ou sauvegarde, décalage d’un sprite dans une 
direction. 


SUR (0/N) 


)THENG0SUB2040 


UTILE 64 


Cette utilitaire a pour but de favoriser toutes vos 
disquette. Il permet par exemple de formater 
renommer disquette et fichiers, de repérer les adr 

des programmes, etc... 


REM *** UTILE 64 *** 

4 C=1 

5 G0SUB55550 

10 REM # DEBUT DU F'RG # 


PRINTQ* 


14 L=8 

15 X=53280 

16 POKEX, 0: POKEX + 1 ,'0: POKEX-526 
POKEX-8,21:P0KE808,225 

18 PRINTCHR* (8) : F’RINTCHR* (147) 
20 PR INT" __ 


35 PRINTQ* 
40 PRINT" 


45 F‘RINT"MiiMENUï " 

47 PR INT"-» 

50 PR IN T " [RlftfrMF OR MA T E R 


RENOMMER 








55 PR I NT " WWMEFFACER " , " CHANGER L ' AD 
DU L.D" 

60 PRINT"M*»»L.ISTE DISK" , "CONVERTIS 
SEUR" 

65 PRINT"l«M*IADR-PRG DISK", "N. NOM" 
70 PRINT"l"»»*M. ID"; : PRINTTAB <20) "Q 
UITTER" 

75 Cü=55776 
77 C=1 

80 FQRJ-C0T0C0+19:POKEJ,2:NEXTJ 
85 GETR$:IFR$=""THEN85 

90 IFR*=CHR*(13)THEN120 

91 IFR*=CHR*(17)THEN94 

92 ÏFR*=CHR*(145)THEN105 

93 6ÜT085 

94 FÜRJ=C0T0C0+19:POKEJ,1:NEXTJ 

95 IFC0=55776THENC0=55856:C=2:GÜT08 
0 

96 IFC0=55856THENC0=55936:C=3:G0T08 
0 

97 IFC0=55936THENC0=56016:C=4:GOTOB 

0 

98 IFCG~56016THENCQ=56096:C=5:GOTOB 
0 

99 IFC0=56096THENC0=55796:C=6:G0T08 
0 

100 IFC0=55796THENC0=55876:C=7lG0T0 
80 

101 IFCQ=55876THENC0=55956:C=S:GOTO 
80 

102 IFCG=55956THENC0=56036:C=9: GOTO 
80 

103 IFC0=56036THENCQ=56116:C=10:GOT 
080 

104 ï FCQ=56116THENC0=55776:C=1: GOTO 
80 

105 F0RJ=C0T0CÛ+19:POKEJ,1:NEXTJ 

106 IFC0=55776THENCÜ=56116:C=10:GOT 
080 

107 IFC0=56116THENC0=56036:C~9:GOTO 
80 

108 IFC0=56036THENC0=55956:C=8:GOT 0 
80 

109 IFC0=55956THENC0=55876:C=7: GOTO 
80 

1 10 IFCQ=55876THENCQ—55796: C=6: GOTO 
80 

111 IFCG—55796THENC0=56096:C=5:GOTO 
80 

112 ïFC0=56096THENC0=56Û16:C=4: GOTO 
80 

113 IFCÜ—56016THENC0=55936 :.C=3 : GOT 0 
80 

114 IFC0=55936THENC0=55856:C=2: GO 10 
80 

1 15 IFC0=55856THENC0=55776: C--1 : GOTO 
80 

120 IFC-1THEN500 
130 IFC—2THEN700 


140 IFC=3THEN900 
145 IFC=4THEN1100 
150 IFC=5THEN1300 
160 IFC=6THEN600 
170 IFC=7THEN800 
180 IFC=8THEN1000 
190 IFC=9THEN1200 
195 IFC=1OTHEN1400 
200 END 

500 PRINTCHR$(147): CLOSE15:CLOSE1 : C 
LQSE2: REM # FERMETURE SECTEURS # 

501 PRINT"1-FORMATER LA DISQUETTE" 

502 PRINT"M2-RET0URNER AU MENU":W*= 

Il II 

503 GETW*:IFW$=""THEN503 

504 I FW$="1"THEN507 

505 IFW$="2"THEN10 

506 G0T0503 

507 PRINT"M*M INSEREZ LA DISQUETTE 
A .FORMATER" 

508 PRINT"WN»***MET APPUYEZ SUR ISR 
ETURN" 

509 GETE$: IFE*=""THEN509 

510 IFE$=CHR*(13)THEN513 

511 IFE$=CHR$(136)THEN500 

512 G0T0509 

513 V=13: A$=" " : X*»"W 

514 P RIN T X $ ; " 0 M DU DI 

SK : 

515 GETT*:IFT*=""THEN515 

516 IFT*=CHR*(13)THEN520 

517 V=V+1 : PR I NTT AB ( V ) " W ; T* : A*==A*+T 
$ 

518 G0TQ515 

520 IFLEN ( A$) > 16THENPRINT" l»MAX . 16 

LETTRES":G0T0513 

521 PRINT H WMOM CORRECT ? (0/N)" 

522 GETY*:IFY*=""THEN522 

523 IFY$="0"THEN526 

524 IFY*="N"THENX*«" t=f‘ :V=13:A*=""ïG 
0T0514 

525 G0T0522 

526 0PEN15,L,15,"NO:"+A*+",64" 

527 PRINT"MRlHHFORMATAGE EN COURS" 

528 I NF'UT#15, A, B$, C, D 

529 IFB*<>"OK"THEN535 

530 PRINT"WSFMDRMATER IST4SBAN DONNER 
" : CLO15 : CLOSÇ ; 1 

531 6ETU*:IFÜ*= ,,,, THEN531 

532 IFU$="F"THEN507 

533 IFU$="A"THEN10 

534 G0T0531 

535 PRINT"WN INSEREZ LE DISK DANS L 
E DRIVE S.V.P" 

536 PRINT"MMMWkPiiT APPUYEZ SUR RET 
URN" -• 

537 GETH$:IFH$=""THEN537 

538 IFH$=CHR$(13)THENCLOSE1 : CLOSE15 

:G0T0526 





539 G0TQ537 

599 END 

600 F'RI NTCHR* (147): CLOSE 15 : CLOSE 1 : C 
L0SE2:REM # FERMETURE SECTEURS # 

6U1 PRINT" 1-RENOMMER UN PRG" 

602 

603 

604 

605 

606 
607 


PRINT"M 2-RETOUR AU MENU 


GETL*:IFL*=""THEN603 
IFL$="1"THEN607 
IFL$="2"THEN10 
GÜT0603 

F‘R I NT " MMRldANC IEN NOM DU PRG 
INPUT"lïT ;p* 

608 PRINT"WaNOUVEAU 
NF'UT"IST;E* 

609 F'RINT“MBCORRECTION ? (0/N) 

610 GETRE$: IFRE$=""THEN610 


NOM DU PRG 


E*= 


PRINT" 




Il II m 


IN 


611 I FRE$="Q" THENF'$: 

IFF*=CHR* ( 13) THEN55500 
1046 GOTO 1041 

1050 N=0 : F‘R I NT " M«NOMBRE 
F'UTA* 

1051 L=LEN(A$) 

1052 D$=LEFT$(A$, 1) 

1053 V=VAL(A*) : A ( 1 ) = INT (V/4096) : A(2 
)=INT((V-A(1)*4096)/256) 

1054 A (3) =INT((V-A(1)*4096-A(2)*256 
)/16): A(4)=V-A(1)*4096-A(2)*256-A<3 
) *16 

1055 AF$="" 

1056 FORI=1T04:IFA(I)>9THENAF$=AF$+ 
“+CHR$(A(I)+55): GOTO1058 

1057 AF$=AF$+STR'$(A(I)) 

1058 NEXT: F'RINT: F'RINT" HEXADECIMAL 
= "AF$ 

1059 GOTO1024 
PR I NT " eu -CON VERT IR " 

F‘RINT"M2-RET0UR AU MENU" 

D$= " » 

GETD*:IFD*=""THEN1093 
IFD$="1"THEN1010 
IFD$="2"THEN1O 
GOTO1092 
END 

PR I NT " Sil -ADR-F'RG DI SK " : CLOSE 15 
CL0SE2:CLOSE 1 

1101 F'R INT"M2-RET0UR AU MENU" 

GETN*: IFN*=""THEN1102 
IFN*="1“THEN1106 
IFN$="2"THEN10 
GOTO1102 

V= 13 : D$= " " : m= " " : F'R I NT " 


1090 

1091 

1092 

1093 

1094 

1095 

1096 
1099 
1 100 


1 102 
1103 
1 104 
1105 
1 106 

[«m«I*NOM DU PRG 

II 

1107 GETM*:IFM$=""THEN1107 

1108 IFM$=CHR$ <13)THEN1111 

1109 V=V+1■PRINTTAB(V)"M":M$:D*=D$+ 
M$ 

1110 GOTO1107 

1111 C$;=CHR$ (0) : X$=" " ; E=1 


1112 0PEN15,L,15:IFE=2THEN1113:GOSU 
B1 197 

1113 OPEN1,8,2,D$:GET#1,A$,: CLOSE 

1115 VA=ASC(A$+C$)+256*ASC<B*+C$) 

1116 IF V A=35 27THENF'R I NT " lânftftftMMER 
REUR DISK OU NOM PRG": GOTO1197 

1120 F'RINT: F'RINT "ADRESSE DE DEBUT : 

•>. 

» 

1121 F'RINT VA 

1197 CLOSE15:CLOSE1 :CLQSE2 

1198 FORI = 1T04000: NEXT: GOTO1100 

1200 F'RINT "eil-CHANGER LE NOM D'UN D 
ISK": CLOSE15:CLOSE 1 :CLQSE2 

1201 PRINT"l*E-RETOUR AU MENU" 

1202 R$="" 

1203 GETR$: IFR*=""THEN1203 

1204 IFR*="1"THEN1207 

1205 IFR$="2"THEN1O 

1206 GOTO1202 

1207 F'RINT"M*I«MMsiINSEREZ LE DISK F'Ü 
UR LE CHANGEMENT" 

1208 F'RINT"WAMIINIIET APPUYEZ SU 
R RETURN" : F'RINT" WiiIbNOM ACTUEL : M" 

1209 F'RINT"»»»»»»•»»»»»!“; :H*="" 

1210 GETH$: IFH$<>CHR* ( 13) THENi210 

1211 R*="" 

1212 0FEN1,L,15 

1213 0PEN2,L,2,"#" 

1214 F'R INT# 1, "U 1 2 0 18 0" 

1215 PRINT#1,"B-P 2 144" 

1216 F0RI=1T016 

1217 GET#2,A$ 

1218 PRINT"IS"A$; : NEXT 

1219 PRINT "eiSlPWiiI»I«miiiIiiW«I*lRliilRVEUX -TU 
LE CHANGER ? (0/N)" 

1220 T*="" 

1221 GETT$:IFT$=""THEN1221 

1222 IFT$="Q"THEN1225 

1223 IFT*="N"THENCLÛSE1:CL0SE2:CLOS 
E15:GOTO1200 

1224 G0T01221 

1225 CLOSE 1 : CL0SE2 : F'R I NT " {««NOUVEAU 
NOM " ; : A$=" " : INF'UTA* 

1226 A=LEN(A$):IFA> 16THENPRINT"l«116 
LETTRES MAX ! ! " : GOTO 1225. 

1236 IFA<16THENG0SUB1285 

1237 OF'EN l ,8,15 

1238 0PEN2,8,2,"#" 

1239 PRINT#1,"U1 2 0 18 0" 

1240 PR'INT#1, "B—F' 2 144" 

1242 F'RINT#2, A$ 

1243 F'RINT# 1, "U2 2 0 18 0" 

1245 CLÛSE2 

1250 F'R I NT# 1, "IO " : CLOSE 1 
1255 GOTO1200 

1285 A$=A$+CHR$(160):A=LEN(A$) 

1286 IFA<16THEN1285 

1287 RETURN 
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1299 END 

1300 F'R I NT "Ml -CHANGER L ID D'UN DIS 
K" : CLOSE15:CL0SE2:CLOSE1 

1301 PR INT" 1*12—RETOUR AU MENU" 

1302 R*="" 

1303 GETR*: IFR$=""THEN1303 

1304 IFR$="1"THEN1308 

1305 IFR$="2"THEN1O 

1306 GOTO1303 

1308 F’RINT" WWWHD ACTUEL s 13" 

1309 0PEN1,L,15 
131. 0PEN2, L, 2, "#" 

1311 PRINT#1,“U1 2 O 18 0" 

1312 PR I NT# 1, " B—P 2 162" s PR INT" l«W 

llkllIHMl" ; 

1313 FORI-ÜTG4 

1314 GET#2,A* 

1315 PRINTA*;sNEXT 

1316 PRINT" WMWWWMPWWkWWK/EUX-TU LE C 
MANGER ? (0/N) " 

1317 GETC*:IFC$—""THEN1317 

1318 IFC*="N“THEN1300 

1319 IFC*="0"THENCL0SE2s CLOSE1 : GOTO 

1321 

1320 GOTO1317 

1321 PR I NT " minNOUVEAU ID " ; : A*=" " : IN 
PUT" 13" *, A*: OPEN1, L, 15: 0PEN2, L, 2, "#" 

1322 PRINT#1 ,"U1 20 18 0":PRINT#1, 
"B-P 2 162"SPRINT#2,AS 

1323 F‘RINT# 1, "U2 2 O 18 0" 

1324 CL0SE2 

1325 PRINT#1,"10": CLOSE1 

1326 GOTO1300 

1399 END 

1400 PR INT " WEGNF I. RMAT I ON (Q/N)":CLO 
SE15:CL0SE2: CLOSE1 

1401 GETH*:IFH$~""THEN1401 

1402 IFH*="Q"THENPRINT" W‘ :SYS64738 

1404 IFH$="N"THEN10 

1405 GOTO1401 
55499 END 


55500 OF'ENl, 8, 15: LOAD" ASSEMBLEUR UT 
64" ,8, 1 

55501 INF*UT#1,A,B$,C,D 

55502 IFB»<>"OK"THENPRINT"aWOUS N'A 
VEZ PAS L'ASSEMBLEUR ! !" 

55503 IFB$="OK"THENRUN 

55504 G$="" 

55505 GETG$:IFG$=""THEN55504 

55506 IFG*OCHR* ( 136) THEN 1090 

55550 PRINTCHR*(147):PRINTCHR$(8) 

55551 P0KE53280,0:P0KE53281,0:P0KE6 
46,1:P0KE53272,23:REM P0KE808,225 

55552 PR I NT " 

II 

55553 PR INT" t»»»»»»»WI3 UTILE 

64 " 

55554 PRINT"k»»»»»**»»»»l3 

II 

55555 PR INT "WW k»WW»W»»»W»»WW« CRACK 
ED" 

55556 PR INT "W1 Y 

55557 PRINT"WWW S A T 

COM 

55558 FORI-55896T055936 

55559 G0SUB55565:FORF-1624TÜ1637: PO 
KEP,160:NEXTP:FORT=1639TÜ1647STEP2 : 
POKE T,160 

55560 G0T055570 

55561 NEXTTs F0RJ = 1649T01663 sPOKEJ, 1 
60:NEXTJ:POKEI,D:NEXTI 

55565 D=INT(RND(1)*255)+1 

55566 POKE1638,211:PQKE1640,193:POK 
E1642,212:POKE1644,195 

55567 POKE1646,207 :POKE1648,205 

55569 RETURN 

55570 GETJ$ 

55571 IFJ*<>""THENRETURN 

55580 C=C+1 

55581 IFC=255THENC»1 :RETURN 

55582 G0T055561 
READY. 


Avec cet utilitaire, vous disposez d’un grand choix de 
fonctions pour votre lecteur de disquettes' formater, 
renommer, effacer, changer l’AD du LD, directory, 
convertiseur, adresse de chaque fichier. Le programme se 
décompose de cette façon: 

3 à 195 sélection des différentes fonctions 

500 à 600 formatage d’une disquette 

600 à 611 nouveau nom d’un fichier 

1050 à 1110 convertisseur de base 

1111 à 1300 nouveau nom de DISK 


1310 à 1405 changer l’ID 

555000 à 55582 présentation du logiciel et sauvegardes 
des données 









/BMPC 


ALERTE 


C est le cri que pousse le commandant de votre unité lorsque l’escadron héliporté 

de l’adversaire apparaît dans le ciel 

de votre territoire. Aucune initiative, il faut tirer sur tout ce qui vole. Dur! 


50 SCREEN 1 :WIDTH 80:WIDTH 40:C0L0R 0 1 
60 CLEAR:X*=16Q: V = 80 ’ 

LOS^eS* BASETC( 12 ^ » HELIC °CS) , BATRI( 8) , EXP 

80 HELIC0$“"C3R6NR6D2C1NL4R2DR7LU2RG2L5B 
L3LBL3GC2BR3NR7C10NL3RNR4DC3DNL3R3NUR3" 
90 BASETC$="C1BR12R8DR2NL3DR2L3C2BL4LC1 B 
L4ERL2NLGNL2GBR13DUBL13L8RNU2UNH2NE2GDBR 
8C3BR2R2BR4R2C1BR3DC3BL40UBL7DUC2BL4LC3B 
L.2LC 1 BL2DC3BR2RC3BR7R2BR5C 1BR4DBL 1 3NU4C3 
BL5LC1BL2U" 

100 BATRI$“"C3RBR3R2BR8R0L2BL3L2BL6NL2DR 
3NUR7NRDC104L5U3L3D3LU4R2BR303R3UC0UC2L2 
UR2D2L2" 

110 EXPL0SS*"FGLRFG3ERE3NHNLNE2R5NEGC2NL 
4C3GC2NL4C3DF2HLGH2G2LE2R4" 

120 PSET(X+16,Y+63,3:PSETfX + 21,Y+6),3 
130 PSETfX,Y) ,0 : DRAW BASETC$ 

140 GETfX+1,Y)-(X+24,Y + 7),BASETC 
150 PUT(X+1,Y),BASETC 
160 PSETfX,Y) ,0 :0RAW HELICOS 
170 GETf X,Y)-(X + 1 5 ,Y + 7) HELICO 
180 PUTfX, Y),HELICO' 

190 PSETfX,Y),0 : DRAW BATRIS 
200 GETfX,Y)-(X+1S,Y+7),BATRI 
210 PUTfX, Y] ,BATRI 
220 PSETf X, Y) , 3.-DRAW EXPL0SS 

230 PSETfX-2,Y) ,2 :PSETfX-4,Y +1) :PSETfX-3 
, Y + 3 J 

240 PSETf X+11,Y) :PSETf X + 9,Y + 5) :PSETf X+10 
, Y + 4) ,2 

250 X“X-4:GETf X,Y)-f X+15,Y + 7) ,EXPLOS 
260 ' -- - 

270 ' n présentation n 
200 ' -- - 

290 GOSUB 2030 
300 V$ = INKE Y $ 

310 IF V $ * " 1 " OR VS-"2" THEN VIT-VAL f V$ 

) ELSE 300 9 

320 VIT =3-VIT 

330 GOSUB 1500 

340 ' +- - 

350 ' n def. variables n 
360 ' -- - 

370 DIM AODf3),CH$f3):BEST-0 
380 ADDf 1)=0 :ADDf 2) = 1 :ADDf 33 =- 1 •CHSf 1 1=r 
HR$( 1243 :CH$f 23 =CHR$f 473 :CH$f 33 =CHR$f 923 
390 ON KEYC113 GOSUB. 550 : ON KEYf133 GOSU 
B 560 : ON KEYf 123 GOSUB 570 U 

110 ' -- 


-1 : CHSf 13 




420 ' fi gestion du jeu n 

430 ' -- - 

440 GOSUB 580 
450 WHILE AN=VIE 

460 IF fC<>0 AND C<>43 THEN GOSUB 600 

fm°oî F LM=1 THEN G0SUB S90:G0SUB 750 :GOS 
UB 580 

480 GOSUB 2190 

tEX=1 00 EM=1 QR THEN GOSU 

d 040 

500 IF EXH=*0 THEN GOSUB 910 

510 IF SO9E+07 THEN SC»0 

520 LOCATE 23,20:PRINT USING • 

SC * 

530 WEND:GOSUB 590:G0T0 1080 
540 ' 

550 IF f EXH = 0 AND C-0) THEN C-1:YT-15*XT 
-22 :RETURN ELSE RETURN 

560 IF f EXH = 0 AND C = 0) THEN C=*2:YT=15•XT 
= 23 .-RETURN ELSE RETURN 

570 IF f EXH = 0 AND C«0) THEN C~3:YT=15-XT 
| =*22 : RETURN ELSE RETURN 

S80 KEYC11) ON : KE Y( 12) 0N:KEY(13) ON : RET 
Of^RETURN^ ST0P:KEY( ' S1 STOP :KE Y( 13) ST 

600 ' f- - 

610 ' n gestion des tirs n 
620 ' -- + 

- VI T X A** XT : YA " YT :XT " x T r + f VIT*ADD( C3 3 : Y T* Y T 
MO^ÏF YT< t ’S-VIT) THEN LOCATE YA.XA.-PRI 

rf° nÙ.I >7 THEN L0CATE TT t XT : PRINT CHS( 
C3 ; :GOSUB 710:RETURN 

660 IF fXEoXT AND XE+1<>XT3 OR YE<>YT T 
HEN 690 

fsC-SC+90 E YE ’ XE:PRINT " "ï: SOUND 8S0.1 

15 * 8 ■ f YE - ’) . EXPLOS : XH=XE : 

YH« YE:EXH“1 :AH-0:C*4:RETURN 

690 IF YT = 3 THEN C = 0:RETURN 

o?n t? C ? TE YT « XT:PRInt CH$fC3;rRETURN 

Von , n^ïî! <>XT ° R YM<>YT > THEN RETURN 
720 LOCATE YT,XT:PRINT " "• 

730 PUTf f XT-13 *8 , f YT- 13 *83 EXPLOS : SC-SC + 

740 EX-1:XEX«XT:YEX-YT:YM=15 :YT=15 :LM = 2• 
C*4:RETURN 

750 ' -- - 

760 ' fi tirs hélico h ' 

770 ' --- 














780 XA=XM:YA=YM:XM=XM-1:YM=YM+1 

790 IF Y M >8 THEN LOCATE Y A,XA:PRINT " 

800 IF YM<15 THEN LOCATE YM,XM:PRINT CH$ 
(2) ; :GOSUB 710:RETURN 
810 XM = XA:YM=YA 

820 IF (XM<22 OR XM>24) THEN EM=1:PUT((X 
M-1)*8,C Y M - 1 )*8) ,EXPLOS:EX2 = XM:YX2=YM:LV 
= 2:YM=15 :RETURN 

830 VIE = VIE-1 :LM = 2:XM = 8:RETURN 


840 ' +-+ 

850 ' n explosions n 

860 ' +-+ 


870 IF EX=1 THEN X=XEX:Y=YEX:EX=0:SC-SC+ 
5:C=0:LM=0 

880 IF EM=1 THEN X=EX2:Y=YX2:EM=0:LM=0:X 
M= 1 

890 IF EXH =1 THEN X = XH: Y = YH:EXH = 0:C = 0:XE 
= 1 :XT = 2 

900 LOCATE Y,X:PRINT " SOUND 130, 1 : R 


ETURN 

910 ' --+ 

920 ' n affichage hélico n 

930 ' +-+ 


940 L-INTfRND*18):I-INT(RND*8) 

950 IF ( I>4 AND AH = 0) THEN XE = XI:AH=1 : PU 

TC(XE-1)*8,(YE-1)*8),HELICO:RETURN 

960 IF AH = 0 THEN RETURN 

970 PUT((XE-1)*8,CYE-1)*8),HELICO 

980 XE=XE-VIT:IF XE<9 THEN AH=Û:RETURN 

990 IF I<5 THEN YE = 5 ELSE YE=I 

1000 IF C(XT=XE OR XT=XE+1) AND YT=YE) T 

HEN GOSUB 1040 :RETURN 

1010 PUTC(XE-1)*8,(YE-1)*8).HELICO 

1020 IF (LM = 0 AND 1=7 AND XE>15 AND XE<3 

7 ANO L>6) THEN LM=1 :XM = XE+1 : YM = 7 

1030 RETURN 

1040 LOCATE YE,XE:PRINT " "; :PUT((XT- 1) 

* 8 , ( Y T - 1 ) *8) .EXPLOS 

1050 EXH=1:XH=XT:YH=YE:YT=15:SOUND 850,1 
1060 AH=0:SC=SC+90:C=4 
1070 RETURN 


1080 ' +- - 

1090 ' n gestion des vies h 
1100 ' +-+ 


1110 LM = 0: IF AH < > 0 THEN LOCATE YE,XE:PRI 
NT " "; :AH = 0 

1120 SOUND 100,2 : SOUND 500,1:S0UND 150,2 
: SOUND 300, 1 : SOUND 200,2 

1130 LOCATE 17,16 :PRINT " Batterie detru 

i t e " ; 

1140 IF (C< >0 AND C < > 4 AND YT>3 AND YT<1 
5) THEN LOCATE YT,XT:PRINT " 

1150 IF ( EX= 1 OR EM=1 OR EXH=1) THEN GOS 
UB 840 

1160 C = 0:YT=15:L0CATE 15,22:PRINT " "; : 

PUT(160,112),EXPLOS 

1170 DATA 136,168,200,232,264 

1180 RESTORE 1170:F0R F=1 TO AN : READ T : N 

EXT F :PUTC T, 160) ,BASETC:AN = VIE 

1190 FOR F=36 TO 33 STEP -VIT 

1200 PUT((F-1)*8,80) ,HELICO :PUT((F-1)*8, 

40) ,HELICO :GOSUB 1320:G0SUB 2180 

1210 PUT(C F-1)*8,80) ,HELICO:PUT((F-1)*8, 

40) ,HELICO :NEXT F 


1220 PUT(168,112),EXPLOS 

1230 FOR F=33 TO 9 STEP -VIT 

1240 PUT( ( F-1) *8,80) , HELICO:PUT( ( F-1 ) *8, 

40),HELICO 

1250 PUTC ( F+1)*8,72) ,HELICO :PUTC ( F+1 ) *8 , 
32),HELICO 

1260 GOSUB 1320 :GOSUB 2180 

1270 PUT((F-1)*8,80) ,HELICO :PUTCCF-1)*8, 

40),HELICO 

1280 PUT(CF+1)*8,72) ,HELICO :PUT(CF+1)*8, 
32),HELICO 

1290 NEXT F : IF VIE = 0 THEN 1340 

1300 LOCATE 17,16:PRINT " (c) Tes. et TI 

LT 

1310 PUTC 168, 112) ,BATRI: GOTO 420 

1320 FOR T=1 TO C 100*C3-VI T)) :NEXT T : RE T 


URN 

1330 ' +-+ 

1340 ' h gestion des scores n 

1350 ' +-+ 


1360 SOUND 900,2 :GOSUB 1900 

1370 IF BEST<SC THEN BEST=SC 

1380 LOCATE 16,48:PRINT USING "ftftPtPkFtPtPtPt" 

• SC 

1390 LOCATE 18,50: PRINT USING "ftFWtPtPtPtfV 
; BEST 

1400 IN$ = INKE Y $ 

1410 IF IN$="N" THEN SCREEN 1:WIDTH 40:V 
IDTH 80 : END 

1420 IF IN$="0" THEN SOUND 700,1:G0T0 U 
40 

1430 GOTO 1400 
1440 GOSUB 2030 
1450 V$ = INKE Y $ 

1460 IF V$="1" OR V$="2" THEN VIT=VAL (\ 

$) ELSE 1450 

1470 VIT=3-VIT:CLS 

1480 GOSUB 1500 : GOTO 400 


1490 ' +-+ 

1500 ' : écran nx2 h 

1510 ' +-+ 


1520 SCREEN 1:WIDTH 80:WIDTH 40:C0L0R 0 
1 

1530 VIEW (1,198)-C318,1),0,3 
1540 VIEW ( 3, 196)-C316,3) , 0,3 
1550 PAINT ( 160, 100) ,CHR$f 1)+CHR$(68)+^ 
R$( 16)+CHR$(68) , 1 

1560 VIEW ( 1 12, 136)-( 276, 126) , 0,3 

1570 LOCATE 17,16:PRINT " ( c) Tes. et T 

LT 

1580 RESTORE 1700 
1590 FOR 1=1 TO 2 :READ C,N 
1600 FOR T=1 TO N :REAO A,B 
1610 LOCATE A,B : P RIN T CHR$CC) ; 

1620 NEXT T , I 

1630 VIEW C 68, 177)-C 305, 143) , 1 , 3 
1640 VIEW ( 60, 185)-C 297, 151) , 0,3 
1650 VIEW (68, 11 1)-C 305, 15) , 1,3 
1660 VIEW (60,119)-(297,23),0,3 
1670 VIEW C0,0)-C319,199) 

1680 LOCATE 21,10:PRINT ”VieCs):”; 

1690 LOCATE 23,13:PRINT "Score: 

P t a . " ; 

1700 DATA 32,19,2,2,2,6,3,2,3,3,3,4,3,5 
3,6,6,2,7,2, 10,2, 11,2 
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àls?,^:^:^*?;^ 6 ’ 8 - 2 ' 8 ' 3 ’ 8 - 4 ’ 8 ' 5 - 
;r?S.S?ï2 J: ï;: 2: îi-s* ... .. 

I960 DATA 136,168,200,232.264 

1??0 PUTC64,176),EXPLOS:PUT(280,176),HEL 

1780 RESTORE 1760 

1790 FOR X=1 TO 5 :READ Y 

1800 PUT(Y,160),BASETC:NEXT X 

J2]° 3 L L I TNr 6 f;I 20J " (72 ' 112) ' 3:LINE - [ ,6 °. 1 

Jean L?,^ ,114) ' CHR$( 1 ? ) + chr$( 68 ) , 3 

n 21 3 TImp / 11V "C 1 92 , 112] , 3 : LINE- 288 
» 112) , 3 : LlNE-( 296 , .1 20) ,3 

1840 PAlNTf193,114),CHR$(17)+CHR$(68) 3 

1850 PUT( 256,104) ,BASETC:PUT( 168, 112) i BA 
TRI ’ 

1860 LINEC130,168)-(294,168).2 

1 17 m L Ï N . E t5c 4 ; 168) " f 294, 1?0) » 1 :LINE-( 130 
, 170) , 1 :LINE-( 130, 168) , 1 

1880 RETURN 

1890 ' -- - 

1900 ' n écran m3 n 

1910 ' -- - 

1920 SCREEN 1,0:WIDTH 40:WIDTH 80 

à 6 w^rè 5 f- t392 ' 28) -'- ,:viEwc232 - 

1950 LOCATE 6,34:PRINT "A L E R T E"- 
1960 LOCATE 14,19:PRINT "LES SCORES •"• 

19 70 LOCATE 16,18:PRINT "* A l'issue de 
cette partie: pts"- 

I960 LOCATE 18,18;PRI N T "* Le meilleur 
depuis le début: pts "• 

1990 LOCATE 22,14:PRINT "Voulez’vous con 
tinuer le Jeu et améliorer votre score 


y 

2000 LOCATE 23,31:PRINT "Entrez ( 0 ou N 
) • :WINDOW ( 0, 199)-( 639,0) 

2010 RETURN 

2020 ' --- 

2030 ' n écran njt 1 n 

2040 ' --- 

2050 SCREEN 1,0:WIDTH 40:WIDTH 80 

2060 LOCATE 1,56:PRINT "( c) 1988 par T C 

ORANTIN"; 

2070 LOCATE 7,3:PRINT "LES REGLESLOC 
ATE 8,2:PRINT STRING$(13,CHR$(126))• 

2080 LOCATE 18,3:PRINT "LES VITESSES:";: 
LOCATE 1-9,2: PRINT STRINGS ( 1 5 , CHR$( 1 26 j ) 

^090 LOCATE 10,4:PRINT "Dans ce Jeu vous 
devez , a l'aide des TOUCHES FLECHES 
détruire des hélicos" 

2100 PRINT "ennemis qui ne désirent que 

s'emparer de votre base stratégique CT a 
près s'etre" 

2110 PRINT "debarasse de vous et de voir 
e batterie de tir." 

2120 LOCATE 19,20,-PRINT " 1 ) Rapide"; -LOC 

ATE 20,20 :PRINT ” 2 ) Moyenne"- 

2130 LOCATE 14,32:PRI NT "Bonne chance .. 

2140J.0CATE 24,31:PRINT "ENTREZ VOTRE CH 

21S0 VIEWf 248,32)-(400,8) 1 1 

2160 VIEW( 232,40) -( 384, 16) 0 1 

UIRN L ° CATE 4 > 34:PRINT "A L É R T E" ; : RE 

2180 ' +- - 

2190 ' n Pause h 

2200 ' -- - 

2210 TEMPS=180 

2220 ' temps = 90 pour une utilisation av 
ec le QUICK BASIC (4.77 Mhz) 


efle'o^sic P ° Ur UnC - 

2250 FOR M = 0 TO TEMPS : NEXT M.-RETURN 


/SM PC 


BOMBARDIER 

Votre appareil est en perte de vitesse, le carburant ne va pas tarder 
a manquer... Pour survivre à cette mission, il vous faudra détruire 
tous les buildings qui s'élèvent devant vous et éviter le crash. Difficile! 


40 VIT=50:KEY OFF 

50 CH1$="C2BD2D4E1R10E1R2L13U1R10L3H2D5R 
1G1L1U6H1D8L1U8" 

60 CH3$="C1D8R1U8R6D8L1U7L4D1R4BG2D1" 

70 CH4$="C1R7D1L4D1R4D1L7U2D6U3R4D1L3R2D 
2R4U3D2L3" 

80 CH5$="C1BR4R1D1L1BG2L1D1R1BF1BR1R1D1L 


90 CH6$="C2BD2D5R1U6E1D7R1U7R1D7R1U7F1D6 
R1U5" 

100 CH7$="C2BR3R1D1L1G1R3D1L3G1R5D1L5G1R 
7D1L7" 

110 CH8$="C2BD4BR3U4R1D4F1L3G1R5F1L7" 

120 CH9$="C2BR2D1F1D4H1U1R3D1G1U4E1U1" 
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130 CH10$="C2BR2R3G1L1BG2D1G1U3BF2BR1R1H 
1R1BR2E1D3H1BG2L1G1R3" 

140 CH19$="C2BR2R3G1L1BG2R1D1G1U3BF2BR1R 
1H1R1BR1E1D3H1BG2L1G1R3" 

150 CH13$="C0D8R1U8R1D8R1U8R1D8R1U8R1D8R 
1U8" 

160 SCREEN 1:SCREEN 0 
170 COLOR 1,1:CLS 

180 DIM BA(2,2): DIM TA(40):DIM DP(40):DI 
M PO(40): DIM BU(21 f 40) 

190 A=60 

200 B=200 

210 C=10 

220 D=100 

230 E=40 

240 F=200 

250 SC = 0:FU=800 

260 BL$=" 

270 DATA 6,8,14,15,1,0,2,18,19,4,12,9,10 
,11,17,3,5,16,13,7 0<l . 

280 DATA 26,28,34,35,21,20,22,38,39,24,3 
2,29,30,31,37,23,25,36,33,27 

290 RESTORE 270 

300 RANDOMIZE 60 :ID=INT(RND(8)*7)+1 
310 FOR X=1 TO 40 

320 READ PO(X):NEXT X ^ M 

330 LOCATE 8,10:COLOR 14,1 SPRINT B O M 
B A R D I E R" 

340 COLOR 15,1:LOCATE 15,9:PRINT "1 - Re 
gle du jeu" 

350 LOCATE 17,9:PRINT "2 - Modification 
vitesse" 

360 LOCATE 19,9:PRINT "3 - Jouer a Bomba 
rdier" 

370 K$=INKEY$:RAN=RAN+1: IF K$=""THEN 370 

380 IF K$="1"THEN 490 

390 IF K$="2"THEN 420 

400 IF K$="3"THEN 610 

410 GOTO 370 

420 CLS:COLOR 14,1:LOCATE 2,10 
430 PRINT "BOMBARDIER" 

440 COLOR 15,1:LOCATE 8,9 
450 PRINT "Vitesse actuelle :";VIT 
460 LOCATE 11,4:PRINT "(Plus la vitesse 
est petite, plus l’avion irra vit 

e.)" 

470 LOCATE 17,13:INPUT "VITESSE ";VIT 
480 IF VIT<1 THEN 470 ELSE 610 
490 CLS 

500 LOCATE 3,1:PRINT "Ce jeu se }Oue uni 
quement avec la 

510 PRINT "barre ESPACE pour larguer" 

520 PRINT "2 bombes qui equipent votre a 
vion.":PRINT 

530 PRINT "Vous ne pouvez avoir en 1 air 
que 2" 

540 PRINT "bombes en meme temps. ":PRINT 
550 PRINT "Quand vous touchez la base d' 
un" 

560 PRINT "batiment, vous obtenez 50 uni 
tes" 

570 PRINT "de fuel supplémentaires." 

580 LOCATE 18,20 SPRINT "Bonne chance..." 
590 LOCATE 22,5:PRINT "Appuyer sur une t 
ouche" 


600 A$=INKEY$:IF A$=""THEN 600 ELSE RUN 

610 RANDOMIZE RANsGOSUB 1100 

620 GOSUB 1240 

630 FOR X=1 TO 21 

640 FOR Y=1 TO 40 

650 BU(X,Y)=0 

660 NEXT Y 

670 NEXT X 

680 GOSUB 1320 

690 GOSUB 1480 

700 L=2:C=1:TIR=0 

710 GOSUB 1650 

720 C=C+1 

730 IF 040 THEN C=1:L=L+1:IF L>19 THEN 
GOTO 960 

740 IF BU(L,C)< >1 THEN GOTO 880 
750 • **** SCRATCHS BUILDING **** 

760 PSET (C*8,L*8),0:DRAW CH13$ 

770 PSET(C*8,L*8),0:DRAW CH10S 

780 IF C<3 THEN PSET(39*8, (L-l)*8),0:DRA 

W CH13$:GOTO 800 

790 PSET ( (C-l)*8,L*8) ,0:DRAW CH13$ 

800 LOCATE 3,3sPRINT "Vous avez percute 
un batiment" 

810 GOSUB 1230:GOTO 960 

820 ' **** EFFACER LES BALLES **** 

830 X=1 

840 IF TIR=0 THEN RETURN 

850 PSET (BA(X,2)*8,BA(X,1)*8),0:DRAW CH 
13$ 

860 X=X+1:TIR=TIR-1 
870 GOTO 840 

880 ' **** ANIM. AVION **** 

890 PSET ( C * 8 , L * 8 ),0:DRAW CH1$ 

900 RAN=RAN+1 

910 PSET ((C-l) *8,L*8),0:DRAW CH13$ 

920 FU=FU-1 
930 GOSUB 1720 
940 GOSUB 1230 
950 GOTO 710 

950 ' *** PLUS D'AVIONS *** 

970 MES$=" ********* DESIREZ VOUS FAIRE 
UNE AUTRE PARTIE ? (O/N) 

980 LO=LEN(MES$):LO$="" 

990 FOR 1=1 TO LO 
1000 K$=INKEY$ 

1010 IF K$="0"THEN 160 
1020 IF K$ = "N"THEN CLS: END 
1030 IF LEN(LO$)<=39 THEN 1060 
1040 FOR 11=1 TO 200 :NEXT II 
1050 LO$=MID$(LO$,2,39) 

1060 LO$=LO$+MID$(MES$,1,1) 

1070 LOCATE 1,1:PRINT LO$:NEXT I 
1080 GOTO 990 

1090 ' *** DESSIN ECRAN *** 

1100 SCREEN 1,1 
1110 COLOR 0,1 

1120 LINE (0,161)-(319,176),3,BF 
1130 LINE (0,10)-(319,10),2 
1140 PSET (8,16),0 
1150 DRAW CH1$ 

1160 LOCATE 1,2 
1170 PRINT "SCORE:" 

1180 LOCATE 1,14 
1190 PRINT "FUEL:" 
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1200 LOCATE 1,28 
1210 PRINT "CIBLES:" 

1220 RETURN 

1230 ’ *** ECRIT. SCORE *** 

1240 LOCATE 1,8:PRINT BL$ 

1250 LOCATE 1,8:PRINT SC 
1260 LOCATE 1,19:PRINT BL$ 

1270 LOCATE 1,19:PRINT FU 
1280 LOCATE 1,35:PRINT BL$ 

1290 LOCATE 1,35:PRINT CIBLE 
1300 RETURN 

1310 ' *** NBRE ETAGES ET DE BUILDINGS * 
1320 CIBLE=0 
1330 HMAX=5+NBCOU 
1340 IF HMAX>15 THEN HMAX=15 
1350 NA=6+NBCOU 
1360 IF NA>40 THEN NA=40 
1370 IF NBCOU>20 THEN NBCOU=20 
1380 FOR 1=1 TO NA 

1390 TA(I)=INT((HMAX-NBCOU)*RND+(4+NBCOU 

1400 N=ID+I 

1410 IF N>40 THEN N=1 

1420 DP(I)=PO(N) 

1430 CIBLE=CIBLE+TA(I) 

1440 NEXT I 
1450 GOSUB 1230 
1460 RETURN 

1470 ' *** M.E.P DES BUILDINGS *** 

1480 FOR B=1 TO NA 

1490 PSET ( (4+DP(B))*8,19*8),0 

1500 DRAW CH3$ 

1510 BU(19,4+DP(B))=1 

1520 L=18:C=DP(B)+4 

1530 IF A=0 THEN A=1 ELSE A=0 

1540 FOR X=2 TO TA(B)-1 

1550 RAN=RAN+1:RANDOMIZE RAN:AIG=INT(RND 
( 2 ) +1 ) 

1560 PSET (C*8,L*8),0 

1570 IF ÀIG=1 THEN DRAW CH4$ ELSE DRAW C 


H5$ 


1580 BU(L,C)=1:L=L-1:NEXT X 
1590 BU(L,C)=1 

1600 PSET (C*8,L*8),0 :AIG=INT(RND(3)*2) + 


1610 IF AIG=3 THEN DRAW CH6$:GOTO 1630 
1620 IF AIG=2 THEN DRAW CH7$ ELSE DRAW C 
H8$ 

1630 NEXT B:RETURN 
1640 ' *** TIR PRINT *** 


1650 IF TIR=2 THEN DEF SEG=0:POKE 1050,P 
EEK(1052) : FOR ZE=1 TO VIT:NEXT ZE:RETURN 
1660 FOR ZE=1 TO VIT:K$=INKEY$: IF K$<>"" 
THEN 1680 

1670 NEXT ZE:RETURN 

1680 X=1:IF TIR=1 THEN X=2 

1690 BA(X,1)=L:BA(X,2)=C:TIR=TIR+1 

1700 RETURN 

1710 ' *** ANIM BALL *** 

1720 IF TIR=0 THEN GOTO 2020 
1730 X=1 

1740 PSET (BA(X,2)* 8,BA(X,1)* 8),0 : DRAW C 
H13$ 

1750 BA(X,1)=BA(X,1)+1 

1760 IF BA(X,1)>19 AND BU(BA(X,1),BA(X,2 
))<>1 THEN GOTO 1870 

1770 IF BU(BA(X,1) ,BA(X,2))< >1 THEN GOTO 
1910 

1780 PSET (BA (X, 2)* 8,BA(X,1)*8),0 : DRAW C 
H10$ 

1790 BU(BA(X,1),BA(X,2))=0 

1800 IF BA(X,1)019 THEN GOTO 1820 

1810 FU=FU+50 

1820 CIBLE=CIBLE-1:SC=SC+1 

1830 IF CIBLE>0 THEN GOTO 1860 

1840 PSET (BÀ(2,2)*8,BA(2,1)*8),0:DRAW C 

H13$ 

1850 GOTO 1950 

1860 PSET (BA(X,2)*8,BA(X,1)* 8),0 :DRAW C 
H13$ 

1870 TIR=TIR-1 

1880 IF TIR=0 OR X=2 THEN RETURN 
1890 BA ( 1,1 ) =BA (21 ) : BA ( 1,2) =BA (2,2) 

1900 GOTO 1730 

1910 PSET (BA(X,2)* 8,BA(X,1)* 8),0 :DRAW C 
H9$ 

1920 IF TIR=1 THEN RETURN 
1930 IF X=2 THEN RETURN 
1940 X=2:GOTO 1740 
1950 NBCOU=NBCOU+l 
1960 FU=650 

1970 PSET (8,16),0:DRAW CH1$ 

1980 LINE (C*8,L*8)-((C*8)+16,(L*8)+8),0 
» BF 

1990 PSET ( (C*8), (L-l)*8),0:DRAW CH13$ 
2000 PSET (BA(X,2)*8,BA(X,l)*8),0:DRAW C 
H13$ 

2010 GOTO 620 
2020 RETURN 
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IBM PC 


DOMINO 


Exploitant au mieux les capacités de la machine et la puissance du 
GWbasic, Domino est un jeu classique de ... dominos! Belle 
représentation écran, règles et maniement simples, un bon petit jeu 

de société. 


30 KEY OFF 

40 SCREEN 1:SCREEN 0:COLOR 1,1:CLS 
50 COLOR 14,1:LOCATE 10,15 
60 PRINT "D O M I N O" 

70 COLOR 15,1:LOCATE 16,10 
80 PRINT "Appuyez sur une touche" 

90 GOSUB 2020 

100 SCREEN 1,0:COLOR 0,1 

110 LINE (0,10)-(320,150),2,BF 

120 DIM A(28): DIM B(28):DIM C(19):DIM D( 

19): DIM E(19):DIM F(19) 

130 RANDOMIZE RAN 

140 DATA 0,0,1,0,1,1, 2 , 0 , 2 , 1,2,2,3,0,3,1 
3 2 

150 DATA 3,3,4,0,4,1,4,2,4,3,4,4,5,0,5,1 
,5,2 

160 DATA 5,3,5,4,5,5,6,0,6,1,6,2,6,3,6,4 

170 RESTORE 140:FOR 1=1 TO 28 :READ A(I): 
READ B(I):NEXT I 

180 R=6:S=6:G=6:H=6:K=8:L=8:M=8:N=8:XG=3 
20 :XH=303:YG=54:YH=96 
190 FOR 1=1 TO K 

200 RAN=RAN+1:RANDOMIZE RAN:J=INT(RND(5) 
*28)+l:IF A(J)=8 THEN 200 ELSE C(I)=A(J) 
:D(I)=B(J):A(J)=8 

210 RAN=RAN+1:RANDOMIZE RAN:J=INT(RND(7) 

* 28)+1 : IF A(J)=8 THEN 210 ELSE E(I)=A(J) 

: F(I)=B(J):A(J)=8 

220 NEXT I:GOSUB 1720:GOSUB 1160 

230 ' 

240 FOR 1=1 TO L:IF E(I)=G AND F(I)=H TH 
EN 250 ELSE NEXT I :P=1:Q=G:GOSUB 1790:GO 

TO 270 „ 

250 GOSUB 830:XX=293:YY=75:GG=G:HH-H:GOS 

UB 14 80:GOTO 520 
260 1 

270 K$ = INKEY$: IF K$ = ""THEN 270 
280 IF K$="1"THEN 310 
290 IF K$="0"THEN 300 ELSE 270 
300 FOR 1=1 TO K:IF C(I)=Ç AND D(I)=H TH 
EN 320 ELSE NEXT I:P=2:Q=3:GOSUB 1790 
310 G=G-1:H=H-1:FOR HJK=1 TO 550:NEXT HJ 
K :IF G> = 0 THEN 240 ELSE P=12:Q=3:GOSUB 1 
790:GOTO 1030 
320 P=13:Q=1:GOSUB 1790:C(I)=8:D(I)=8:GO 
SUB 1150:N=N-1:XX=29 3 :YY=7 5 :GG=G:HH=H:GO 
SUB 1480:GOTO 340 
330 ' 

340 IF NO0 THEN 350 ELSE P = 15 : Q=3 : GOSUB 
1790-.GOTO 1030 
350 FOR 1=1 TO L 


360 IF E(I)=G AND F(I)=G THEN S=G:GOSUB 
830:GOSUB 850:GOTO 520 

370 IF E(I)=H AND F(I)=H THEN R=H:GOSUB 

830:GOSUB 940:GOTO 520 

380 IF E(I)=G THEN S=F(I):GOTO 400 

390 IF F(I)=G THEN S=E(I) ELSE 410 

400 GOSUB 830:GOSUB 900:GOTO 520 

410 IF E(I)=H THEN R=F(I):GOTO 430 

420 IF F(I)=H THEN R=E(I) ELSE 440 

430 GOSUB 830:GOSUB 990:GOTO 520 

440 NEXT I 

450 ' 

460 FOR 1 = 1 TO 28 :IF A(I)<>8 THEN 490 EL 
SE NEXT I:P=3:Q=3:GOSUB 1790:FOR 1=1 TO 

470 IF C(I)=G OR D(I)=G OR E(I)=G OR F(I 
)=G OR C(I)=H OR D(I)=H THEN 520 
480 IF E(I)=H OR F(I)=H THEN 520 ELSE NE 
XT I:P=12:Q=3:GOSUB 1790:GOTO 1030 
490 p=4:Q=0:GOSUB 1790:L=L+1:M=M+1:GOSUB 
1720 

500 RAN=RAN+1 :RANDOMIZE RAN :J=INT (RND (13 
)*28)+1:IF A(J)=8 THEN 500 ELSE E(L)=A(J 
):F(L)=B(J):A(J)=8:GOTO 340 
510 ' 

520 IF M>0 THEN P=5:Q=0:GOSUB 1790 ELSE 

P=ll:0=3 :GOSUB 1790:GOTO 1030 

530 K$=INKEY$:IF K$=""THEN 530 

540 IF K$="1"THEN 560 ELSE 600 

550 ' 

560 FOR 1=1 TO 28 :IF A(I)<>8 THEN 570 EL 
SE NEXT I:P=6:Q=1:GOSUB 1790:GOTO 340 
570 RAN=RAN+1:RANDOMIZE RAN:J=INT(RND(17 
)*28)+1:IF A(J)=8 THEN 570 
580 P=7:Q=0:GOSUB 1790:N=N+1:K=K+1:C(K)- 
A(J):D(K)=B(J):A(J)=8:GOSUB 1160:GOTO 52 

0 

590 ' 

600 IF ASC(K$)<>48 THEN 520 ELSE P=8:Q=1 

-.GOSUB 1790 „ 

610 K$=INKEY$:IF K$=""THEN 610 ELSE V-AS 

C ( K$ ) 

620 IF V<48 OR V>54 THEN 610 ELSE LOCATE 
23,28:T=V-48:PRINT T 
630 FOR HG=1 TO 555-.NEXT HG 
640 KL$=INKEY$:IF KL$=""THEN 640 ELSE V- 

650 ( IF^V<48 OR V>54 THEN 640 ELSE LOCATE 
23,32:U=V-48:PRINT U 
660 FOR HG=1 TO 555:NEXT HG 
670 FOR 1=1 TO K:IF C(I)=T AND D(I)-U OR 
C(I)=U AND D(I)=T THEN 690 ELSE NEXT I 


L 
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680 P=2:Q=3:GOSUB 1790:GOTO 520 

690 IF C(I)=G AND D(I)=G THEN S=G:GOSUB 

810:GOSUB 850:GOTO 340 

700 IF C(I)=H AND D(I)=H THEN R=H:GOSUB 
810:GOSUB 940:GOTO 340 

710 IF C(I)=G AND D(I)=H THEN IF T=G THE 
N 730 ELSE 770 

720 IF C(I)=H AND D(I)=G THEN IF T=H THE 
N 760 ELSE 740 

730 IF C(I)=G THEN S=D(I):GOTO 750 
740 IF D(I)=G THEN S=C(I) ELSE 760 
750 GOSUB 810 :GOSUB 900:GOTO 340 
760 IF C(I)=H THEN R=D(I):GOTO 780 
770 IF D(I)=H THEN R=C(I) ELSE 790 
780 GOSUB 810:GOSUB 990:GOTO 340 
790 P=14:Q=3:GOSUB 1790:GOTO 520 
800 ' 

810 P=13:Q=1:GOSUB 1790:N=N-1:D(I)=8:C(I 
) =8: GOSUB 1160-.RETURN 
820 ’ 

830 P=9:Q=0:GOSUB 1790:M=M-1:GOSUB 1720: 
E ( I)=8 : F(I)=8 :RETURN 
840 ’ 

850 IF XG<64 AND XG>47 AND YG=54 THEN 91 
0 

860 IF XG<40 AND YG=54 THEN 870 ELSE 880 

870 XG=XG+8:YG=29:XX=XG:YY=YG:GG=G:HH=S: 

GOSUB 1480 :YG=23:G=S:XG=XG+22:RETURN 

880 IF YG=54 THEN XG=XG-19:XX=XG:YY=YG:G 

G=G:HH=S:GOSUB 1480:G=S:RETURN 

890 IF XG<60 THEN 920 ELSE XX=XG:YY=YG: G 

G=G:HH=S:GOSUB 1480:G=S:XG=XG+19:RETURN 

900 IF XG<30 AND YG=54 THEN 870 

910 IF YG=54 THEN XG=XG-34:XX=XG:YY=YG:G 

G=S:HH=G:GOSUB 1240:G=S:RETURN 

920 XX=XG:YY=YG:GG=G:HH=S:GOSUB 1240:G=S 

:XG=XG+34:RETURN 

930 ' 

940 IF XH<90 AND XH>68 AND YH=96 THEN 10 
00 

950 IF XH<69 AND YH=96 THEN 960 ELSE 970 
960 YH=115:XH=XH-8:XX=XH:YY=YH:GG=R:HH=H 
:GOSUB 1480:YH=124:H=R:XH=XH+15:RETURN 
970 IF YH=96 THEN XH=XH-19:XX=XH:YY=YH: G 
G=H:HH=R:GOSUB 1480 :H=R:RETURN 
980 IF XH<70 THEN 1010 ELSE XX=XH:YY=YH: 
GG=H:HH=R:GOSUB 1480:H=R:XH=XH+19:RETURN 
990 IF XH<69 AND YH=96 THEN 960 
1000 IF YH=96 THEN XH=XH-34:XX=XH:YY=YH: 
GG=R:HH=H:GOSUB 1240 :H=R:RETURN 
1010 XX=XH:YY=YH:GG=H:HH=R:GOSUB 1240:H= 
R:XH=XH+34:RETURN 
1020 ' 

1030 MES$=" ********* DESIREZ VOUS JOUER 
UNE AUTRE PARTIE ? (O/N)" 

1040 LO=LEN(MES$):LO$="" 

1050 FOR 1=1 TO LO 
1060 K$=INKEY$:RAN=RAN+1 
1070 IF K$="0"THEN CLS:GOTO 110 
1080 IF K$="N"THEN CLSîEND 
1090 IF LEN(LO$)<=38 THEN 1120 
1100 FOR 11=1 TO 200:NEXT II 
1110 LO$=MID$(LO$,2,39) 

1120 LO$=LO$+MID$(MES$,1,1) 

1130 LOCATE 23,1:PRINT LO$:NEXT I 


1140 GOTO 1050 
1150 ’ 

1160 X=4:Y=155:IF YH=96 THEN Z=140 ELSE 
Z=155 

1170 LINE(0,Z)-(319,171),1,BF 
1180 FOR 1=1 TO K 

1190 IF C(I)=8 OR D(I)=8 THEN 1220 
1200 IF X>=310 THEN X=4:Y=140 
1210 XX=X:YY=Y:GG=C(I):HH=D(I):GOSUB 124 
0:X=X+35 

1220 NEXT I:RETURN 
1230 ' 

1240 ' DOMINO HORIZONTAL 

1250 FOR UN=1 TO 33 : LINE(XX+UN,YY)-(XX+U 
N-4,YY+10),3:NEXT UN 
1260 LINE(XX+17,YY)-(XX+13,YY+10),2 
1270 FOR UN=11 TO 14 : LINE(XX-3,YY+UN)-(X 
X+29,YY+UN),0:NEXT UN 

1280 FOR UN=1 TO 4:LINE(XX+33,YY+UN)-(XX 
+29,YY+10+UN),0:NEXT UN 
1290 LINE(XX-3,YY+10)-(XX-3,YY+14),3 
1300 LINE(XX+28,YY+10)-(XX+28,YY+14),3 
1310 ON GG+1 GOSUB 1340,1350,1360,1370,1 

390.1400.1410 

1320 XX=XX+16:ON HH+1 GOSUB 1340,1350,13 

60.1370.1390.1400.1410 
1330 GOTO 1460 

1340 RETURN 

1350 XX=XX+6:YY=YY+5:GOSUB 1420 :XX=XX-6: 
YY=YY-5-.RETURN 

1360 XX=XX+7:YY=YY+2:GOSUB 1420 :YY=YY+5: 
XX=XX-2:GOSUB 1420 :XX=XX-5 :YY=YY-7:RETUR 
N 

1370 GOSUB 1350 

1380 XX=XX+3:YY=YY+2:GOSUB 1420:XX=XX+6: 
YY=YY+5:GOSUB 1420 :XX=XX-9:YY=YY-7:RETUR 
N 

1390 GOSUB 1380 :XX=XX+1:YY=YY+7:GOSUB 14 
20:XX=XX+10:YY=YY-5:GOSUB 1420:XX=XX-11: 
YY=YY-2:RETURN 

1400 GOSUB 1350:GOSUB 1390-.RETURN 

1410 GOSUB 1360:GOSUB 1390:RETURN 

1420 PSET(XX,YY),0 

1430 PSET(XX,YY+1),0 

1440 PSET(XX+1,YY),0 

1450 PSET(XX+1,YY+1),0:RETURN 

1460 XX=XX-16:RETURN 

1470 ' 

1480 'DOMINO HORIZONTAL 

1490 FOR DX=1 TO 16 : LINE(XX+DX+4,YY-6)-( 

XX+DX-7,YY+19),3:NEXT DX 

1500 LINE(XX,YY+7)-(XX+16,YY+7),2 

1510 FOR DX=20 TO 24 :LINE(XX-6,YY+DX)-(X 

X+9,YY+DX),0:NEXT DX 

1520 FOR DX=1 TO 5 : LINE(XX+20,YY-6+DX)-( 
XX+9,YY+19+DX),0:NEXT DX 
1530 LINE(XX+9,YY+19)-(XX+9,YY+24),3 
1540 LINE(XX-7,YY+19)-(XX-7,YY+24),3 
1550 XX=XX+9:ON HH+1 GOSUB 1580,1590,160 
0,1610,1630,1640.1650 

1560 YY=YY+13:XX=XX-6:ON GG+1 GOSUB 1580 
,1590,1600,1610,1630,1640,1650 
1570 YY=YY-13 :XX=XX+6 :GOTO 1700 
1580 RETURN 

1590 GOSUB 1660:RETURN 
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1600 XX=XX-4:GOSUB 1660:XX=XX+8:GOSUB 16 
60 :XX=XX-4:RETURN 
1610 GOSUB 1660 

1620 XX=XX+6:YY=YY-3:GOSUB 1660 :XX=XX-12 
:YY=YY+6:GOSUB 1660 :XX=XX+6:YY=YY-3 : RETU 
RN 

1630 GOSUB 1620:XX=XX-2:YY=YY-3:GOSUB 16 
60:XX=XX+5:YY=YY+6:GOSUB 1660:XX=XX-3:YY 
=YY-3:RETURN 

1640 GOSUB 1660 îGOSUB 1630:RETURN 

1650 GOSUB 1600îGOSUB 1630:RETURN 

1660 PSET(XX,YY),0 

1670 PSET{XX,YY+1),0 

1680 PSET(XX+1,YY),0 

1690 PSET(XX+1,YY+1) ,0 :RETURN 

1700 XX=XX-9:RETURN 

1710 ’ 

1720 ' DOMINO(M) 

1730 FOR TS=1 TO 14 : LINE{0,TS)-(319,TS), 
1 :NEXT TS 

1740 TX=1:TY=1 : FOR TS=1 TO M: FOR JS = 1 TO 
5: LINE(TX,TY+JS)-(TX+33,TY+JS),0:NEXT J 
S 

1750 LINE(TX,TY)-(TX+33,TY),3 :PSET(TX+17 
TY ) 2 

1760'TX=TX+35: IF TX>310 THEN TX=1:TY=8 
1770 NEXT TS:RETURN 
1780 ' 

1790 'SUB DM( P, Q) 

1800 LOCATE 23,1:PRINT STRINGS(39," ") 
1810 ON P GOTO 1820,1830,1840,1850,1860, 
1870,1880,1890,1900,1910,1920,1930,1940, 
1950,1960,1970 

1820 Q$=STR$(Q):Q$="Pas de double "+Q$+" 
, et vous? oui=0/non=l":GOTO 1980 
1830 Q$="Vous n'avez pas ce domino !":GOT 
O 1980 

1840 Q$="Plus de pioche. Je passe...":GO 


TO 1980 

1850 Q$="Je pioche...":GOTO 1980 

1860 QS="0 pour jouer / 1 pour piocher": 

GOTO 1980 

1870 Q$="Plus de pioche. Vous passez..." 
:GOTO 1980 

1880 Q$="Vous piochez...":GOTO 1980 
1890 Q$="Indiquez ses valeurs ../.. " 
:GOTO 1980 

1900 Q$="Je joue...":GOTO 1980 

1910 Q$="":GOTO 1980 

1920 Q$="J'ai gagné!":GOTO 1980 

1930 Q$="Le jeu est bloqué.":GOTO 1980 

1940 Q$="Vous jouez...":GOTO 1980 

1950 Q$="Ce domino ne correspond pas!":G 

OTO 1980 

1960 Q$="Vous avez gagné!":GOTO 1980 
1970 Q$="D O M I N O" 

1980 IF P=ll OR P=15 THEN LOCA=10 ELSE L 
OCA=23 

1990 LOCATE LOCA,(40-LEN(Q$))/2:PRINT Q$ 
2000 IF Q<4 THEN FOR HG=0 TO Q*500:NEXT 
HG 

2010 RETURN 

2020 REM ****** MUSIQUE ********** 

2030 DATA 02,T170 

2040 DATA FL4,CL4,FL4,FL4,GL4,AL4 

2050 DATA CL6,B-L4,AL4,GL4,FL4 

2060 DATA GL4,AL2,FL4,GL4,GL2,AL2 

2070 DATA GL6,FL4,0 

2080 RESTORE 2030 

2090 READ SONS 

2100 IF SONS="0"THEN 2080 

2110 PLAY SONS 

2120 K$=INKEY$ 

2130 IF K$ < >""THEN RETURN 
2140 GOTO 2090 


IBM PC 

PUISSANCE 4 

Le but de la manoeuvre, aligner quatre pions sur un échiquier. 
Simple? Non, car votre adversaire, l’ordinateur, fera tout pour vous contrer. 
Puissance 4 est un “morpion” des plus efficaces et bien sûr 

très simple à jouer. 


110 ON KEY(12)GOSUB 2700 
120 ON KEY(13)GOSUB 2750 

130 KEY OFF:SCREEN 1:SCREEN 0:COLOR 1,1, 

1 :CLS:COLOR 14,1 

140 CHOIX$="2":R1=0:R2=0 

150 COLOR 14,1:LOCATE 5,10:PRINT "P U I 

S S A N C E 4" 

160 COLOR 15,1:LOCATE 15,5 


170 PRINT "Voulez vous les réglés ? (O/N 
)" 

180 GOSUB 1990 

190 IF R$="0" OR R$="o" THEN 200 ELSE 22 
0 

200 GOSUB 1190 

210 S$=INKEY$: IF S$=""THEN 210 
220 RANDOMIZE RAN 
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230 KEY(1)ON 

240 DIM A(5,7):DIM K(7):DIM N(20):DIM G( 
7) 

250 FOR 1=1 TO 20:N(I)=0:NEXT I 

260 N(1)=.01:N(2)=.1:N(3)=10:N(4)=1000:N 

(6)=1:N(11)=100:N(16)=10000 

270 B=0 

280 REM DEBUT DU JEU 
290 ’ ************ 

300 GOSUB 410 

310 SCREEN 1,1:COLOR 0,1 

320 0=7:M=5:GOSUB 2280 :WK=19:GOSUB 2480 

330 LOCATE 8,3:PRINT "JOUEUR:" 

340 LOCATE 10,5îPRINT RI 
350 LOCATE 8,33:PRINT "MICRO:" 

360 LOCATE 10,35:PRINT R2 
370 LINE (8,50)-(73,83),2,B 
380 LINE (250,50>-(305,83),3,B 
390 S=INT(RND(4)*3)+1:IF S=1 OR S=2 THEN 
420 

400 GOTO 610 

410 FOR J=1 TO 7:G(J)=0:K(J)=0:C=0:FOR I 
= 1 TO 5:A(I,J)=0:NEXT I:NEXT J :RETURN 
420 REM JOUEUR JOUE 
430 ' *********** 

440 LINE (20,155)-(300,180),2,B 

450 WW=19:ZZ=0:GOSUB 2440 :C=C + 1: IF C = 36 

THEN GOSUB 1360 ELSE 470 

460 IF R$="0"THEN 280 ELSE 1640 

470 WW=21:ZZ=1:GOSUB 2440 

480 LI=21:AB$="A vous de jouer":GOSUB 19 

20 

490 WW=22:ZZ=0:GOSUB 2440:GOSUB 2580 

500 IF K(X)=5 THEN 510 ELSE 540 

510 WW=22:ZZ=0:GOSUB 2440 :LI = 22:AB$="Col 

onne déjà complète, rejouez":GOSUB 1920 

520 IF SONNE=0 THEN FOR PAU=1 TO 2000:NE 

XT PAU 

530 GOTO 490 

540 WW=22:ZZ=0:GOSUB 2440 :LI=22:AB$="C•e 
st OK":GOSUB 1920 

550 IF SONNE=0 THEN FOR PAU=1 TO 2000:NE 
XT PAU 

560 Y=5-K(X):A(Y,X)=1:K(X)=K(X)+1 
570 XX=X:YY=Y:Pl=2:GOSUB 2530 
580 IF G(X)=1 THEN WW=21:ZZ=1:GOSUB 2440 
ELSE 610 
590 GOSUB 1430 
600 GOSUB 410 :GOTO 220 
610 REM MICRO JOUE 
620 ' ********** 

630 LINE (20,155)-(300,180),3,B 
640 WW=19:ZZ=0:GOSUB 2440:C=C+1:IF C=36 
THEN GOSUB 1360 ELSE 660 
650 GOTO 220 

660 WW=21:ZZ=1:GOSUB 2440:LI=21:AB$="A m 
oi de jouer":GOSUB 1920 
670 WW=22:ZZ=0:GOSUB 2440:LI=22:AB$ = "Un 
instant, je réfléchis...":GOSUB 1920:B=0 
: M=0 

680 FOR X=1 TO 7:GOSUB 760 : IF T<M THEN 7 
00 

690 M=T:XM=X 
700 NEXT X 

710 X=XM:WW=22:ZZ=0:GOSUB 2440:LI=22:AB$ 


="Je joue":GOSUB 1920 

720 IF SONNE=0 THEN FOR PAU=1 TO 2000:NE 
XT PAU 

730 Y=5-K(X):A(Y,X)=5:K(X)=K(X)+1 
740 XX=X:YY=Y:P1=3:GOSUB 2530 
7 50 B=l:GOSUB 760-.GOTO 420 
760 REM REFLEXION 
770 ********* 

780 G(X)=0:T=0:Y=5-K(X):IF Y<>0 THEN 800 
790 T=-l:GOTO 960 
800 IF Y=5 THEN 820 

810 S=0: FOR J=1 TO 4 :S=S+A(J,X):NEXT J:G 
OSUB 970 

820 IF Y=1 THEN 840 

830 S=0: FOR J=2 TO 5 :S=S+A(J,X) :NEXT J:G 
OSUB 970 

840 IF X>4 THEN 870 

850 FOR D=1 TO X:S=0:FOR I=D TO D+3:S=S+ 
A(Y,I):NEXT I:GOSUB 970 
860 NEXT D:GOTO 880 

870 FOR D=X-3 TO 4:S=0:FOR I=D TO D+3:S= 
S+A(Y,I):NEXT I:GOSUB 970:NEXT D 
880 E=X+Y: IF Y=5 OR E>8 OR E<5 THEN 900 
890 S=0: FOR J=1 TO 4 :I=E-J:S=S+A(J,I):NE 
XT J:GOSUB 970 

900 IF Y=1 OR E<6 OR E>9 THEN 920 

910 S=0: FOR J=2 TO 5 :I=E-J :S=S+A{J,I):NE 

XT J:GOSUB 970 

920 E=X-Y:IF Y=5 OR E<0 OR E>3 THEN 940 
930 S=0: FOR J=1 TO 4 :I=E+J:S=S+A(J,I): NE 
XT J:GOSUB 970 

940 IF Y=1 OR E<-1 OR E>2 THEN 960 

950 S=0: FOR J=2 TO 5 :I=E+J:S=S+À(J,I): NE 

XT J:GOSUB 970 

960 RETURN 

970 REM SP ANALYSE 

980 ' ********** 

990 IF S=3 THEN G(X)=1 

1000 IF S=15 AND B=0 THEN WW=21:ZZ=1:GOS 

UB 2440 ELSE 1030 

1010 GOSUB 1490 

1020 GOSUB 410 :GOTO 220 

1030 T=T+N(S+1):RETURN 

1040 ********************* 

1050 '*** S/P TITRE *** 

1060 ********************* 

1070 COLOR 1,1 
1080 CLS:COLOR 14,1 
1090 L=(40-LEN(A$))/2:LOCATE LI,L 
1100 PRINT A$ 

1110 RETURN 
1120 COLOR 15,1 
1130 LOCATE 13,2 

1140 PRINT "Voulez-vous les règles du je 
u [O/N]?" 

1150 R$=INKEY$:RAN=RAN+1:IF R$=""THEN 11 
50 

1160 IF R$< >"O"AND R$< >"N"THEN 1150 

1170 RETURN 

1180 *************** 

1190 '*** REGLES *** 

1200 *************** 

1210 COLOR 1,1 

1220 CLS:COLOR 14,1:LOCATE 2,11 
1230 PRINT "REGLES DU JEU" 
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1240 COLOR 15,1:LOCATE 6,1 

1250 PRINT "Le jeu se déroule sur un éch 

iquier de 7 * 5":PRINT 

1260 PRINT "Les 2 adversaires jouent à t 
our de rôle.":PRINT 

1270 PRINT "Le gagnant est celui qui ali 
gne le " 

1280 PRINT "premier 4 pions; que ce soit 

tl 

1290 PRINT "horizontalement, verticaleme 
nt ou en" 

1300 PRINT "diagonale.":PRINT:PRINT 
1310 LOCATE 18,8:COLOR 5,1:PRINT "Appuyé 
z sur une touche" 

1320 COLOR 15,1 

1330 LOCATE 20,10:PRINT "BONNE CHANCE... 

Il 

1340 RETURN 

1350 ************** 

1360 '* * *EGALITE* * * 

1370 ************** 

1380 LOCATE 21,4 

1390 PRINT "Egalité, vous vous défendez 
bien" 

1400 LOCATE 22,4:PRINT STRINGS(33," ") 
1410 GOSUB 1570 :RETURN 
1420 ******************* 

1430 '***JOUEUR GAGNE*** 

1440 ******************* 

1450 LOCATE 21,7 

1460 PRINT "OK vous avez gagné":R1=R1+1 
1470 GOSUB 1570:RETURN 
1480 ****************** 

1490 ****MICRO GAGNE*** 

1500 ****************** 

1510 WW=21:ZZ=1:GOSUB 2440 

1520 LI = 21: AB$="Désolé, je joue et je ga 

gne":GOSUB 1920 

1530 Y=5~K(X):XX=X:YY=Y:Pl=3:GOSUB 2530 
1540 R2=R2+1 
1550 GOSUB 1570:RETURN 
1560 ******************* 

1570 * * * *AUTRE PARTIE*** 

1580 ******************* 

1590 MES$="****** DESIREZ-VOUS JOUER UNE 
AUTRE PARTIE [Oui/Non] ? ********** 

1600 LO=LEN(MES$):LO$="" 

1610 FOR 1=1 TO LO 

1620 K$=INKEY$:RAN=RAN-1 

1630 IF K$="0" OR K$="o"THEN CLS:RETURN 

1640 IF K$ = "N" OR K$ = "N"THEN CLS: END 

1650 IF LEN(LOS)<=39 THEN 1680 

1660 FOR 11 = 1 TO 200 :NEXT II 

1670 LO$=MID$(LOS,2,39) 

1680 LO$=LO$+MID$(MES$,1,1) 

1690 LOCATE 1,1 :PRINT LOS :NEXT I 
1700 GOTO 1610 

1710 ’ ********************* 

1720 ' *** DECODE CASE 1 *** 

1730 ' ********************* 

1740 DATA A,B,C,D,F,G,H,I,J,K 
1750 DATA 0/1,2,3,4,5,6,7,8,9 
1760 C2=C-(INT(C/10)*10):C1=INT(C/10) 
1770 RESTORE 1740:FOR 1 = 0 TO 9 :READ Cl$: 
IF CH=1 THEN C11=I ELSE C11=I+1 


1780 IF C1=C11 THEN 1790 ELSE NEXT I 
1790 RESTORE 1750:FOR 1=0 TO 9:READ C2$: 
IF CH=1 THEN C21=I ELSE C21=I+1 
1800 IF C2=C21 THEN 1810 ELSE NEXT I 
1810 RETURN 

1820 R2$=INKEY$:IF R2$=""THEN 1820 
1830 LOCATE L4,C4+1:PRINT R2$ 

1840 IF ASC(R$)<48 OR ASC(R$)>57 THEN ER 
U=1:GOTO 1900 

1850 RESTORE 1750:FOR 1=0 TO 9:READ C2$: 

IF R2$=C2$THEN 1860 ELSE 1880 

1860 IF CH=1 THEN C2=I ELSE C2=I+1 

1870 GOTO 1890 

1880 NEXT I 

1890 C=C1*10+C2 

1900 RETURN 

1910 ************************ 

1920 '*** ECRITURE LIGNES *** 

193 0 ************************ 

1940 FOR 1=1 TO LEN(AB$) 

1950 LOCATE LI,1+4:PRINT " " 

1960 LOCATE LI,1+4:PRINT MIDS(AB$,1,1) 
1970 NEXT I:RETURN 
1980 ************************ 

1 99 0 '*** ROUTINE MUSIQUE *** 

2000 ************************ 

2010 DATA Tl15,03,EL6,EL6,GL6,AL4 
2020 DATA BL4,BL6,AL6,BL4,>DL4,03 
2030 DATA EL6,EL6,GL6,AL4,BL4 
2040 DATA BL6,AL6,BL4,>DL4,03,EL6 
2050 DATA EL6,GL6,AL4,EL4,EL6,DL6 
2060 DATA 03,EL6,EL6,GL6,AL4,BL4 
2070 DATA BL6,AL6,BL4,>DL4,03,BL6 
2080 DATA BL6,>DL6,<BL4,>D#L6,<BL6 
2090 DATA AL6,BL2,>EL6,DL6,<BL6 
2100 DATA GL6,AL6,GL6,GL4,GL6,EL6 
2110 DATA GL4,AL4,EL6,EL6,GL6,AL4 
2120 DATA EL6,EL4,EL6,DL6,EL6,EL6 
2130 DATA EL4,A#L6,BL4,BL4,EL4,AL6 
2140 DATA B-L4,EL6,GL6,A#L6,AL6 
2150 DATA AL4,GL6,AL6,GL6,EL6,DL6 
2160 DATA EL6,EL2,0 
2170 RESTORE 2010 
2180 READ SONS 
2190 IF SON$="0"THEN 2170 
2200 PLAY SONS 
2210 R$=INKEY$:RAN=RAN+1 

2220 IF R$="0" OR R$="o" OR R$="N" OR R$ 
="n" THEN RETURN ELSE 2180 
2230 ********************* 

2240 '*** SUB ROUTINES *** 

2250 ********************* 

2260 ' 

2270 ********************* 

2280 ' DESSIN DU SUPPORT 
2290 ********************* 

2300 LINE (84,16)-(88,140),1,BF 
2310 LINE (90,20)-(230,120),1,BF 
2320 LINE (232,16)-(236,140),1,BF 
2330 LINE (90,122)-(230,123),1,BF 
2340 LINE (138,125)-(182,125),1 
2350 LINE (139,126)-(181,126),1 
2360 LINE (140,127)-(180,127),1 
2370 FOR 1=1 TO 7 
2380 FOR J=1 TO 5 
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2390 CIRCLE(1*20+80,J*20+10),7,0 
2400 DRAW"PO,O" 

2410 NEXT : NEXT 
2420 RETURN 

2430 ' **** S/P EFF ***** 

2440 FOR II=WW TO WW+ZZ:LOCATE 11,4 
2450 PRINT " 

M 

2460 NEXT II:LOCATE WW,4:RETURN 
2470 ' ****** S/P SORT ***** 

2480 LOCATE WK,4 

2490 AB$="Tirage au sort du premier joue 
ur":FOR 11=1 TO LEN(AB$):LOCATE WK,II+3 
2500 PRINT MID$(AB$,II,1):NEXT II 
2510 FOR PPP=1 TO 500 :NEXT PPP:RETURN 
2520 ' ****** S/P PION ****** 

2530 XX2=XX*20+80:YY2=YY*20+10 
2540 CIRCLE(XX2,YY2),7,PI 
2550 IF Pl=2 THEN DRAW "P2,l" 

2560 IF Pl=3 THEN DRAW "P3,l" 

2570 RETURN 

2580 ******** CHOIX COLONE ******* 


2590 X=4:LUC=160 

2600 DEF SEG=0:POKE 1050,PEEK(1052) 

2610 CIRCLE(LUC,10),7,2 
2620 DRAW "P2,2" 

2630 KEY(12)ON:KEY(13)ON 
2640 KEY(12)STOP:KEY(13)STOP 
2650 CIRCLE(LUC,10),7,2 
2660 DRAW"P2,2" 

2670 K$=INKEY$ 

2680 IF K$=" "THEN LINE(LUC-7,4)-(LUC+7, 
16),0,BF:RETURN 
2690 GOTO 2630 

2700 KEY(12)STOP:KEY(13)STOP 
2710 IF LUC<101 THEN 2740 
2720 LINE(LUC-7,4)-(LUC+7,16),0,BF 
2730 X=X-l:LUC=LUC-20 
2740 RETURN 

2750 KEY(12)STOP:KEY(13)STOP 
2760 IF LUC>219 THEN 2790 
2770 LINE(LUC-7,4)-(LUC+7,16),0,BF 
2780 X=X+1:LUC=LUC+20 
2790 RETURN 


LIGNES: EXPLICATIONS: 

100 à 290 Présentation du jeu 

300 à 410 Début du jeu 

420 à 600 C’est au joueur d’agir 

610 à 960 Au tour de l’ordinateur 

1000 à 1030 Analyse d’un coup 

1040 à 1170 Titre et demande de la règle 

1180 à 1340 Règle du jeu 

1350 à 1700 Egalité entre les deux adversaires 

1710 à 1900 Décodage des cases 

1910 à 1970 Ecriture des commentaires 


1980 à 2260 
2270 à 2420 
2430 à 2790 


Musique 
Graphismes 
Vérification des coups 
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IBM PC 

SNAKY 

Snaky est un jeu de plateau. Ses principaux atouts, un nombre de 
tableaux confortable, un jeu assez varié pour une partie qui vous occupera 
finalement pendant de longues heures. A ne pas mettre 
entre toutes les mains! 


10 CLEAR : RANDOMIZE TIMER 
20 VITE=3 : HG-100 

30 SCREEN 0,0,0 : KEY 0FF : WIDTH 40 : C 
0L0R 2,0,0:L0CATE 1,1,0 

40 C0L0R 14,0 : CLS : PRINT"SNAKY" : C0L0R 1:P 
RIN T " U n Jeu de Renan Jegouzo":C0L0R 3:PR 
IN T " (c 3 Pirasoft 1988” 

50 C0L0R 2,0 : PRINT : PRINT : PRINT"Ete 
s vous en mode CGA ? (0/N) >"; : A$=INP 

UT$( 1) :PRINT A$: IF A$="N" OR A$="n" THEN 
END ELSE IF A$="0" OR A$="o" THEN ELSE 
50 

60 PRINT:PRINT"Etes vous en 3-4 Mhz ou 8 
-10 Mhz ?":PRINT"( 1/2) > " ; :A$«INPUT$( 1) 

:PRINT A$:A=VAL(A$) : IF A<1 OR A>2 THEN 6 
0 ELSE MHZ = A 

70 PRINT:PRINT"GW-BASIC ou QUICK BASIC ? 

(1/2) >";:A$*INPUT$(1):PRINT A$:A=VAL( 

A$) : IF A<1 OR A>2 THEN 70 ELSE BAS = A 
80 COLOR 2,0 : CLS : PRINT"ESC->QUIT": CO 
LOR 4,6 : M S = 0 

90 LOCATE 1 , 12:PRINT"7 MlMtltltVIIItlMNnNlIN ; " 
100 LOCATE 2, 12:PRINT" :COLOR 1:PRINT" 
PIRASOFT 1988 ";:C0L0R 4:PRINT";" 

no locate 3,i2:print " Hnnntuinnnfinnntitin<" 

120 COLOR 2,0 : LOCATE 5,17 : PRINT"Prse 
nte" 

130 LOCATE 7,16 : COLOR 5 : PRINT"un Jeu 
de” 


140 LOCATE 

9,14 : COLOR 

15 

: PRINT" 

Jegouzo" 
150 COLOR 
160 LOCATE 

15,4 

22, 12 : P RIN T" 

1 . 

Tr 

s Rapide " 
170 LOCATE 

f» 

23,12:PRINT" 

2 . 

Rapide 

180 LOCATE 

24,12:PRINT" 

3. 

Normale 


ff , 

» 

190 IF INKEY$<>"" THEN 190 ELSE C0L=O:TC 
= 0 :TCD= 1 


200 COLOR TC,1 : LOCATE 12,5 : PRINT STR 
ING$(31,32):TC-TC+TCD:IF TC>7 OR TC<0 TH 
EN TCD=-TCD:TC=TC+2*TCD 


210 

LOCATE 

13,5:PRINT" 

***** 

* 

** 

* 

***** 

* 

* * 

* " 






220 

LOCATE 

14,5:PRINT" 

* 

* 

* 

* 

* * 


a- •» 

* " 






230 

LOCATE 

15,5:PRINT" 

* 

* 

JJ. 

* 

* * 

* 


* " 






240 

LOCATE 

16,5:PRINT" 

***** 

.JJ. 

* 

* 

***** 

** 

*** 

•t 






250 

LOCATE 

17,5:PRINT" 

* 

* 

* 

j'. 

* * 


* * * •• 

260 LOCATE 18,5:PRINT" * * * * * * 

* * * •• 

270 LOCATE 19,5:PRINT" ***** * *** * * 

* * * " 

280 LOCATE 20,5:PRINT STRING$(31,32) 

290 C0L = C0L XOR 15.-C0L0R COL , 0 : LOCATE 24 
,3:PRINT"FIRE"; :LOCATE 24,34 :PRINT"FIRE" 

300 LOCATE 21+VITE.12 : COLOR 14,4 : PRI 
NT CHR$(2); 

310 A$=INKEY$ : IF A$=CHR$(27) THEN END 
ELSE IF A$=CHR$(32) THEN 380 ELSE IF VAL 
(A$)> =1 AND VAL(A$)<4 THEN LOCATE 21+VIT 
E,12 : COLOR 14,4 : PRINT" "; : VITE-VAL 

( A$) 

320 IF PLAY(0)>4 THEN 200 ELSE MS=MS+1:I 

F MS>4 THEN MS=1 

330 ON MS GOTO 340,350,360,370 

340 PLAY "MBT18001L8CP4P4CP8CDP4P4DP8D": 

GOTO 200 

350 PLAY "D + P4P4DP8DFP8FP8P4P4": GOTO 200 
360 PLAY "CP4P4CP8CDP4P4DP8D": GOTO 200 
370 PLAY "D + P4P4DP8DFP8FP8D + FDF": GOTO 20 
0 

380 SC=0:VI=3:NIV~1:PLAY "MBT120L16" 

390 GOTO 460 

400 IF SC>HG THEN HG-SC 

410 COLOR 14,0 : LOCATE 2,8 : PRINT USIN 
G"PiPiftftft" ; SC; : LOCATE 2,27 : PRINT USING 
"WMWV’jHG; 

420 RETURN 

430 LOCATE 25,18:C0L0R 14,0:PRINT" 

”I : IF VI<1 THEN RETURN ELSE LOCATE 2 
5,18:FOR 1-1 TO VI:PRINT CHR$(2) ;" "; : NE 
XT:RETURN 

440 H=INT(RND*32)+1 : V=INT(RND*20)+1 : 

IF SCREEN (V+4,H+5)<>32 THEN 440 ELSE LO 
CATE V + 4,H + 5:COLOR 7,0:PRINT CHR$(3) ; : PO 
MME = POMME-1 :RETURN 

450 COLOR 6,2 : FOR 1-1 TO 7:L0CATE 8 + 1,39 
:PRINT CHR$( 177) ; :NEXT I :TEMP-0:RETURN 
460 COLOR 2,0 : CLS 

470 COLOR 6 : LOCATE 1,8 : PRINT"Score": 
LOCATE 1,28 : PRINT"High" : GOSUB 400 
48Û GOSUB 430 

49CT ‘COLOR 1,5:L0CATE 3,4 : PRINT "/"; STRING 
$( 32, "//") ; ";" 

500 FOR 1=1 TO 20 :LOCATE 1 + 3,4 :PRINT" ; "; 

: LOCATE 1 + 3,37 :PRINT";":NEXT 

510 LOCATE I + 3,4:PRINT"/T;STRING$( 32, "/?" 
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520 POMME - 1 0 

530 VITES=( ( VITE-1)*3000-(NIV<23)* 1000-( 
NIV<45)*1000)/50:IF MHZ-1 THEN VITES-VIT 
ES/2 

540 IF BAS*2 THEN VITES - VITES*2 

550 NI-C(NIV-I) MOD 22)+1 

660 IF NI-1 THEN RESTORE 1300 

570 IF NI-2 THEN RESTORE 1510 

580 IF NI-3 THEN RESTORE 1720 

590 IF NI-4 THEN RESTORE 1930 

600 IF NI=5 THEN RESTORE 2140 

610 IF NI*6 THEN RESTORE 2350 

620 IF NI-7 THEN RESTORE 2560 

630 IF NI=0 THEN RESTORE 2770 

640 IF NI=9 THEN RESTORE 2980 

650 IF NI*10 THEN RESTORE 3190 

660 IF NI—1 1 THEN RESTORE 3400 

670 IF NI*12 THEN RESTORE 3610 

600 IF NI=13 THEN RESTORE 3820 

690 IF NI=14 THEN RESTORE 4030 

700 IF NI*15 THEN RESTORE 4240 

710 IF NI*16 THEN RESTORE 4450 

720 IF NI^17 THEN RESTORE 4660 

730 IF NI*18 THEN RESTORE 4870 

740 IF NI■19 THEN RESTORE 5000 

750 IF NI-20 THEN RESTORE 5290 

760 IF NI-21 THEN RESTORE 5500 

770 IF NI-22 THEN RESTORE 5710 

780 COLOR 2,0 : FOR 1 = 0 TO 19 : LOCATE 1 + 4 

,5 :PRINT STRING$(32,32);:NEXT:COLOR 6,0: 

LOCATE 20, 1 6 : PRINT"Niveau"; :COLOR 4:PRIN 

T NIV; 

790 COLOR 12,4:FOR J=0 TO 19:IF J=16 THE 
N LOCATE 20,5 :COLOR ,0:PRINT STRING$(32, 
32) ; :COLOR ,4 

800 FOR 1*0 TO 31 :READ A:IF A = 4 THEN ELS 
E LOCATE J + 4,5 + 1 :PRINT CHR$(170); 

810 NEXT:NEXT 

020 X*15:Y*10:LOCATE Y+4,X+5:COLOR 14,0: 
PRINT CHR$( 2) ; .-LOCATE Y + 5 , X + 5 : COLOR 2^6: 
PRINT CHR$(4) ; :GOSUB 440 
830 LG"1 : DO"1 : LG$-CHR$(1)+CHR$(1) • 

PLUS = 0 : XFE = X : YFE* Y + 2 
040 IF POMME>10 THEN P0MME=10 
850 COLOR 6,2:FOR 1*1 TO 8:L0CATE 8+1,39 
: PRINT CHR$( 177) ;:NEXT I : TEMP = 0 
060 IF INKEY$<>"" THEN 060 
870 A$ = INKE Y $ : IF A$ = "" THEN 870 ELSE 090 
880 A$=INKEY$:IF A$ = "" THEN 920 
890 A*ASC(RIGHT$( A$,1)) :ZD = DD 
900 IF A=72 THEN DD=1 ELSE IF A=77 THEN 
DD=2 ELSE IF A»80 THEN DD=3 ELSE IF A=75 
THEN DD=4 ELSE IF A=82 THEN DD*DD-1 : I 
F DD<1 THEN DD=4 ELSE ELSE IF A=03 THEN 
DD=DD+1 : IF DD>4 THEN DD=1 

910 A*ABSCDD-ZD) : IF A/2=INT(A/2) THEN OD 
= ZD 

920 XF*X:YF = Y : ON DD GOTO 930,940,950,960 

930 Y*Y-1 : GOTO 970 

940 X=X+1 : GOTO 970 

950 Y * Y+1 : GOTO 970 

960 X=X-1 

970 CH*SCREEN(Y + 4,X + 5) : IF CH = 32 THEN 990 
900 IF CH<>3 THEN 1090 ELSE IF P0MME<1 T 
HEN 1230 ELSE SOUND 50,5 :PLUS = PLUS + 5:GOS 


UB 44Q:SC = SC+13:G0SUB 400 :GOSUB 450 
990 IF PLUS THEN PLUS = PLUS-1 :LG = LG+1 :LG$ 
=LG$+CHR$(DD):G0T0 1050 ELSE DF = ASC( LEFT 
$CLG$, 1) ) :LG$=RIGHT$(LG$,LG)+CHR$(DD) : ON 
DF GOTO 1000,1010,1020,1030 
1000 YFE*YFE-1 : GOTO 1040 
1010 XFE=XFE+1 : GOTO 1040 
1020 YFE= YFE+1 : GOTO 1040 
1030 XFE=XFE-1 

1040 LOCATE YFE+4,XFE+5:COLOR 2,0:PRINT" 
} 

1050 LOCATE Y+4,X+5:COLOR 14,0:PRINT CHR 
$(2) ; :LOCATE YF + 4,XF + 5:COLOR 2,6:PRINT C 
HR$C 4) ; 

1060 FOR VT*0 TO VITES : NEXT 
1070 TEMP*TEMP+1: IF TEMP/10 = INTC TEMP/10) 
THEN IF TEMP<80 THEN LOCATE 8+TEMP/10 3 
9 :COLOR 2.0.-PRINT" - ; ELSE P0MME=P0MME+3 
: PLAY "01CGD":GOSUB 450 
1080 GOTO 880 

1090 LOCATE YF+4,XF+5:COLOR 7,0:PRINT CH 
R$C15); 

1100 FOR 1=1000 TO 40 STEP -10.-S0UND I 
1 : NEXT 

1110 PL»C1000/LEN(LG$)):1=700 
1 120 WHILE LEN(LG$)>1 

1130 DF = ASC(LEFT$(LG$ , 1) ) :LG$=RIGHT$( LG$ 

,LEN(LG$)- 1) : ON DF GOTO 1140,1150,1160 1 
170 

1140 YFE*YFE-1 : GOTO 1180 
1150 XFE-XFE+1 : GOTO 1100 
1160 YFE*YFE+1 : GOTO 1180 
1 170 XFE = XFE-1 

1180 LOCATE YFE+4,XFE+5:COLOR 2,0:PRINT" 
” ; .-SOUND I, . 5 : 1 = 1 + PL 
1190 WEND 

1200 VI»VI-1 : IF VI*-1 THEN 1270 ELSE GOS 
UB 430 

1210 GOTO 550 
1220 END 
1230 COLOR 0,2 

1240 PLAY "MBT120L1604CDFEB" 

1250 FOR 1 = 0 TO 9 :LOCATE I + 4,5:PRINT STR 

ING$(32,32);:LOCATE 23-I,5:PRINT STRINGS 

(32,32);: NEXT 

1260 NIV-NIV+1 : GOTO 520 

1270 COLOR 0,5:LOCATE 13, 16 :PRINT" 

":LOCATE 14,16 :PRINT" GAME OVER ":L 
OCATE 15, 16 :PRINT" 

1280 IF INKEY$<>"" THEN 1280 ELSE T=TIME 
R 

1290 IF INKEY$<>"" THEN 380 ELSE IF TIME 
R-T>10 THEN 80 ELSE 1290 
1300 REM Niv 1 

1310 DATA 4,4,4,4, 4 , 4,4 44444444 
4 ’4,4,4,4,4,4,4,4,4,4,4*4* 4* 4^4 [ a' 

1320 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4 .4.4.4.4.4.4.4.4 ’ 4 ', 4 ’ 4 ’ 4 ', 4 [ 4 [ 4 4 ’ 

1330 DATA 4,4,4,4,4,4, 4,4 4444444 
4 . 4 >4,4,4,4,4,4,4,4,4,4,4,4,4'4’4’ 

1340 DATA 4,4,4.4.4 4444444 / 1 / 1/1 

* ’ * > » ’ t ' 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

1350 DATA 4,4,4.4.4 44444444/la 
» > » » » ’ * » 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
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1360 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1690 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,44 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1370 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1700 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4., 4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1360 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1710 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4, 4 , 4 , 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1390 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1720 REM Niv 3 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1730 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4, 4,4 

1400 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1740 DATA 4,4,4,4,4,4,4,4,4,4,4 ,4 444 

1410 DATA 4,4,4,4,4,4,4,13,1,1,1,1,1,1,1 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

,1,1,1, 1,1, 1,1, 1,1, 12,4,4,4,4,4,4,4 

1750 DATA 4,4 4 4 4 4 4 44444444 

1420 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1760 DATA 4.4.4.4.4.4.4.4 4 4 4 4 a a a 

1430 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4 »4,4,4,4,4,4,4,4,4,4,4,4,4, 4 , 4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1770 DATA 4,4,4,4,4,13,1,1,1,1,1,1,1,1,1 

1440 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

.9,5,1,1,1,1,1,1,1,1,1,12,4,4,4,4.4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1780 DATA 4.4.4.4.4.4.4.4 4 4 A A A A a 

1450 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1790 DATA 4.4.4.4.4.4.4.4.4 4 4 4 A A a 

1460 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

2 , 2 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1800 DATA 4,4,4 4 4 4 4 4 4444444 

1470 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

2 , 2 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1810 DATA 4.4.4.4.4.4.4.4 4 4 4 4 a a a 

1480 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

2 , 2 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1820 DATA 4,4,4,4,4,14,4,4,4,4,4,4,4,4,4 

1490 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

.2,2,4,4,4,4,4,4,4,4,4,14,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1830 DATA 4.4.4.4.4.2 _ 4 44AAA/i/i/i 

1500 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

6,10,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1840 DATA 4.4 4 4 4 7. A AAAaa/i/i/i 

1510 REM Niv 2 

4.4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4 

1520 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1850 DATA 4.4,4,4,4,P AA 444 / 1 / 1 / 1/1 

4,4,4,4,4,4,4,a,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4 

1530 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1860 DATA 4,4,4,4,4 24444444 / 1/1 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4, 4,4 

1540 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1870 DATA 4,4,4,4,4 2444444444 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4 .4,4,4,4,4,4,4,4,4,4, 2 ,4, 4 , 4 , 4,4 

1550 DATA 4,4,4,4,4,4,4,4,4,4 4 4444 

1880 DATA 4,4,4,4,4, 6 ,1,1, 1 , 1 , 1,1 1 1 1 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

M.1.1.1,.1,1.1,1,1,i;ià,4,4,4,4,4 ’ * ’ 

1560 DATA 4,4,4,4,4,4, 4 , 4 , 4,4 4 4444 

1890 DATA 4,4,4.4 44444444444 

4,14,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4»4,4,4,4,4,4,4,4,4,4,4'4,4'4'4'4 > ’ ’ ’ 

1570 OATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

1900 DATA 4,4,4,4,4 44444 A 4444 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4’4',4’4’4|4V ’ ’ ’ 

1580 DATA 4,4,4,4,4,4, 4,4 4444444 

1910 DATA 4,4,4 r 4,4, 4 , 4 , 4,4 4 a 4 4 4 4 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4 .4.4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4 ' 

1590 DATA 4.4.4.4 .4 444444 / 1 / 1 / 1/1 

1920 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1600 DATA 4,4,4,4,4,4,4 ,4 4444444 

1930 REM Niv 4 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1940 DATA 4,4,4,4,4,4,4,4 444444 /] 

1610 DATA 4,4,4,4,4,4,4, 4,4 444444 

4 , 4 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 4 ’ 

4 ’ 2 ,4,4,4,4,4,4,4,4,4,4,4, 4 , 4 , 4,4 

1950 DATA 4,4,4 4 44444444444 

1620 DATA 4,4,4,4,4,4,4,4,13,1,1,1,1,1,1 

4,4,4,4,4,4,4,4,4;4;4;4;4;4;4;4;4’ ' ’ ’ 

,1,3,1,1,1,1,1,1,1,12,4,4,4,4,4,4,4 

1960 DATA 4,4,4,4,4,4, 4 , 4 , 4,4 44444 

1630 DATA 4,4,4,4,4, 4,4 44444444 

4 , 4,4,4,4 , 4,4 , 4,4,4 , 4,4,4, 4 444 

4,2,4,4,4,4,4,4,4,4,4,4,4, 4 , 4 , 4,4 

1970 DATA 4,4,4,4,4,4,5,1,1,1,1,1,1,11 

1640 DATA 4,4,4,4,4,4,4 ,4 4444444 

1 - 1 » 1 » 1 » 1 . 1 . 1. 1, 1, 1, 1, 1, 12,4,4,4,4 

4 » 2 ,4,4,4,4,4,4,4,4,4,4,4,4, 4 , 4,4 

1980 DATA 4,4,4,4 4424444444/1 

1650 DATA 4,4,4,4,4, 4 , 4,4 4444444 

4,4,4,4,4,a.4,4,4,a^a^a^aia’ ’ ’ ’ 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

1990 DATA 4,4,4,4 44244444444 

1660 DATA 4,4,4,4,4, 4 , 4,4 4444444 

4.4,4,4,4,4,4,4,4,4, 4 , 4 * 4 ^ 4 ', 4 ' 4 * 4 ' ’ ' ’ 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

2000 DATA 4,4,4,4,4,4 2 4 4 4 4 4 4 4 4 

1670 DATA 4,4,4,4,4,4, 4 , 4,4 444444 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4,2,4,4,4,4,4,4,4,4,4,4,4 ,4 4 4 4 

2010 DATA 4,4,4,4,4,4,2,4,4,4,4,13,1,1,1 

1680 DATA 4,4,4,4, 4 , 4 , 4 , 4 , 4,4 44444 

» 1 » 1 . 1 . 1 , 1 , 1 , 1 , 1 , 1 , 1 , 9 , 4 , 4 , 4 , 4,4 4 

4 >11» 4 »4,4,4,4,4,4,4,4,4,4,4,4,4,4 

2020 DATA 4,4,4,4,4,4,2,4,4,4 44444 
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^AoA 4,4,4,4,4,4,4 ’ 4 ’ 2 ’ 4 ’ 4 » 4 . 4 . 4 » 4 

11 A 4 » 4 ,4,4, 4,4,2,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4,4 

Î°a°a D a J/ Ï ^ , 4 »4,4,4,4, 2 ,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4,4 

2050 DATA 4,4,4,4,4,4, 6 ,1 ,1 , 1 , 1, 1 , 1 , 1 , i , 

4 4 4 4 4 4 

2060 DATA 4,4 444444aaaaaaa 

4,4,4,4,4,4,4,4;4:4;2;4;4;4;4;4;4’ 

2070 DATA 4,4,4,4, 4 , 4 , 4,4 4444444 
4 , 4 ,4,4,4,4,4,4,4, 4 ] 2 ! 4 ’4^4* 4 ]4^4* 

2080 DATA 4,4,4,4,4,4, 4,4 4444444 

4 , 4 ,4,4,4,4,4,4,4,4, 2 ^ 4 ’4^ 4 ’ 4 ] 4 ^ 4 ’ 

20g0 DATA 4,4,4,4,13, 1,1, 1,1, 1,1 , 1f1f1>1 
» ' * 1 » 1 » 1 » 1 » 1 » 1 , 1 , 1 , 1 , 10 ,4,4,4,4,4,4 
2100 DATA 4,4,4,4,4,4 4 4 4 4 4 4 4 a a 
4 » 4 ,4,4,4,4,4,4,4,4, 4 ^ 4 ’4|4[4| 4 ^ 4 ’ 

2110 DATA 4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 4 

o^A 4,4,4,4,4 ' 4 ’ 4 ’ 4 ’ 4 ’ 4 « 4 * 4 « 4 > 4 » 4, 

2120 DATA 4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4,4 > ,4,4,4|4*4[4*4[4* 

2130 DATA 4,4,4,4,4,4,4 ,4 4444444 

4,4,4,4,4,4,4,4,4|4[4*4* 4^4*4*, 4*4* 

2140 REM Niv 5 

2150 DATA 4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 4 
4 »4,4,4,4,4,4,4,4,4,4,4, 4 ^ 4 ’ 4 * 4 ’ 

2160 DATA 4,4,4,4,4,4, 4,4 4444444 

4.4.4.4.4.4.4.4.4.4.4.4.4.4, *4*4,*4* 

2170 DATA 4,4,4,4,4,4,4,4,4,4 4 4 4 4 4 
4 » 4 .4,4,4,4,4,4,4,4,4, 4 ’4^4| 4 ^ 4 ’ 

2180 DAT ‘K 4,4,4,4,4,4,4,4,4,4 4 4 4 4 4 

4.4.4.4, 4,4,4,4,4,4,4 4 

2190 DATA 4,4,4,4,4,4,5, 1, 1, 1, 1, 1, i, 1f 12 
p4,4,13,1,1,1,1, 1 , 1 ,i f 9 ( 4 4 4 4 4 4 
2200 DATA 4,4,4,4,4,4,2,4,4 444444 
4 » 4 ,4,4,4,4,4,4,4,4,’2 [ 4 ] 4 ] 4,'4 ^4,’ 4 ’ 

2210 DATA 4,4,4,4,4,4,2,4,4 444444 
4,4,4,4,4,4,4,4,4,4,2,4^4*4,*4,*4*4* 

2220 DATA 4,4,4,4,4, 4 ,2,4,4 444444 

4,4,4,4,4,4,4,4,4,4*,2*,4*, 4 V, 4 X 4 ’ ’ ’ ’ 

2230 DATA 4,4,4,4,4,4,2,4,4,4 ,4 4444 

4,4,4,4,4,4,4,4,4,4,2,4,4^! 4 ^ 4 ] 4 ’ 

2240 DATA 4,4,4,4,4,4,2,4,4,4 44444 
4,4,4,4,4,4,4,4,4,4,2*,4’4’4!4i4[4’ 

2250 DATA 4,4,4,4,4,4,2,4,4 444444 

4,4,4,4,4,4,4,4,4,4^214^4!4^ 4 ] 4^ 4* 

2260 DATA 4,4,4,4 44244444A/Lâ 

4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4,4 

2270 DATA 4,4,4,4,4,4,2,4,4,4,4 4444 

4,4,4,4,4,4,4,4,4,4,2^4, 

2280 DATA 4,4,4,4,4,4,2,4,4 4 4 4 4 4 4 
4,4,4,4,4,4,4,4,4,4,2,4^4^4* 4 ^ 4 ]4* 

2290 DATA 4,4,4,4,4,4,2,4,4,4 44444 

4,4,4,4,4,4,4,4,4,4, 2 !414^4!4^ 4 ] 4 ’ 

2300 DATA 4,4,4,4,4,4 ,6 , 1 , 1 , 1 , 1 , 1 , 1 , 1 t 1 f 
1 » 1 » 1 » 1 t 1 . 1 . 1 , 1 , 1 , 1 , 10 ,4,4,4,4,4,4 
2310 DATA 4,4,4,4,4,4,4,4 4444444 

4 ,4,4,4,4,4,4,4,4,4,4,4* 4|4|4[4*, 4* 

2320 DATA 4,4,4,4,4,4,4,4 4444444 
4 . 4 >4,4,4,4,4,4,4,4,4,4,4* 4 ’ 4 ’ 4 ’ 4 ’ 

2330 DATA 4,4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4,4,4,4*4*4^4* 4 ]4*4* 

2340 DATA 4,4,4,4,4,4,4,4, 4,4 44444 
4,4,4,4,4,4,4,4,4,4,4,4,4*4^4*4*4* 

2350 REM Niv/ 6 


2360 DATA 4, 

4 , 

4 , 

4 . 

4 

,4, 

4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4, 

4 , 

4, 

4, 

4 

, 4 , 

4,4,4,4,4,4 

2370 DATA 4, 

4, 

4, 

4 , 

4 

.4. 

4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4, 

4, 

4, 

4 , 

4 

.4. 

4,4,4,4,4,4 

2380 DATA 4, 

4, 

4 , 

4 , 

4 

,4, 

4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4, 

4, 

4 , 

4, 

4 

» 4 

4,4,4,4,4,4 

2390 DATA 4, 

4, 

4, 

4, 

4 

,4. 

4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4, 

4, 

4 - 

4, 

4 

,4, 

4,4,4,4,4,4 

2400 DATA 4, 

4, 

4 , 

4 , 

4 

.4, 

14,4,4,4,4.4.4.4.4 

.5,9,4,4,4,4,4 

.4 

,4 

. 

4,14,4,4,4,4.4.4 

2410 DATA 4 

4, 

4, 

4 , 

4 

.4. 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4 , 

4, 

4 . 

4 

.2, 

4,4,4,4,4,4 

2420 DATA 4 

4 , 

4, 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4 , 

4 , 

4, 

4 

,2, 

4,4,4,4,4,4 

2430 DATA 4 

4 . 

4 , 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4, 

4 , 

4, 

4 

,2, 

4,4,4,4,4,4 

2440 DATA 4 

4, 

4, 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4, 

4, 

4 

4 

.2, 

4,4,4,4,4,4 

2450 DATA 4 

4 , 

4, 

4, 

4 

,4, 

2, 1 » 1, 1 * 1, 1,1, 1 , 1 . 

18,16,1,1,1 

1, 

1, 

1 , 

1 

,1, 

2,4,4,4,4,4,4 

2460 DATA 4 

4 . 

4 . 

4 , 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4 , 

4, 

4, 

4 

.2, 

4,4,4,4,4,4 

2470 DATA 4 

4, 

4, 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4, 

4, 

4, 

4 

,2, 

4,4,4,4,4,4 

2480 DATA 4 

4, 

4, 

4, 

4 

.4. 

2,4,4,4,4,4,4,4,4, 

2.2,4,4,4,4 

4, 

4, 

4, 

4 

.2, 

4,4,4,4,4,4 

2490 DATA 4 

4 

4 , 

4 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

2,2,4,4,4,4 

4, 

4, 

4, 

4 

.2, 

4,4,4,4,4,4 

2500 DATA 4 

4 , 

4, 

4, 

4 

,4, 

11,4,4,4,4,4,4,4,4 

.6,10,4,4,4 

4, 

4 , 

4, 

4 

,4. 

11,4,4,4,4,4,4 

2510 DATA 4 

4, 

4, 

4, 

4 

.4. 

4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4 

4, 

4, 

4, 

4 

,4, 

4,4,4,4,4,4 

2520 DATA 4 

4, 

4 , 

4, 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 1 4 » 4,4,4,4 

4, 

4, 

4, 

4 

.4, 

4,4,4,4,4,4 

2530 DATA 4 

4, 

4, 

4, 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 . 4 » 4,4,4,4 

4 , 

4, 

4. 

4 

.4. 

4,4,4,4,4,4 

2540 DATA 4 

4 , 

4 . 

4, 

4 

,4, 

4,4,4,4,4,4,4,4,4, 

4 . 4 » 4,4,4,4 

4, 

4 , 

4. 

4 

.4, 

4,4,4,4,4,4 

2S50 DATA 4 

4, 

4 , 

4 . 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 . 4 » 4 » 4,4,4 

4, 

4 , 

4, 

4 

.4, 

4,4,4,4,4,4 

2560 REM Niv 
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2570 DATA 4 

4 , 

4 . 

4, 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 . 4 » 4,4,4,4 

4, 

4, 

4 . 

4 

.4, 

4,4,4,4,4,4 

2580 DATA 4 

4, 

4, 

4, 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 » 4 » 4,4,4,4 

4, 

4 , 

4, 

4 

,4, 

4,4,4,4,4,4 

2590 DATA 4 

4, 

4, 

4, 

4 

.4, 

4,4,4,4,4,4,4,4,4, 

4 » 4 » 4,4,4,4 

4, 

4 , 

4, 

4 

,4, 

4,4,4,4,4,4 

2600 DATA 4 

4 . 

4 , 

4. 

4 

.4, 

5,8,8,8,8,1,1,1,1, 

1.1. 1,1, 1,0 

0, 

8. 

8, 

8 

,9, 

4,4,4,4,4,4 

2610 DATA 4 

4 , 

4 , 

4 , 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

4 . 4 » 4 ,4,4,4 

4 . 

4, 

4, 

4 

,2, 

4,4,4,4.4.4 

2620 DATA 4 

4 , 

4, 

4. 

4 

,4, 

«J 

» •> 

C\1 

4 .1 4 »4,4,4,4 

,4 

.4 

.4 

1 

4,2 

,4,4,4,4,4,4 

2630 DATA 4 

4 , 

4. 

4, 

4 

,4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4 . 

4, 

4, 

4 

,2, 

4,4,4,4,4,4 

2640 DATA 4 

4, 

4, 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4 , 

4, 

4, 

4 

,2, 

4,4,4,4,4,4 

2650 DATA 4 

4 , 

4, 

4, 

4 

.4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4, 

4, 

4, 

4 

,11 

,4,4,4,4,4,4 

2660 DATA 4 

4, 

4, 

4, 

4 

,4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4 , 

4, 

4. 

4 

,4, 

4,4,4,4,4,4 

2670 DATA 4 

4 . 

4, 

4, 

4 

,4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4 . 

4, 

4, 

4 

,4, 

4,4,4,4,4,4 

2680 DATA 4 

4 , 

4. 

4. 

4 

,4, 

2,4,4,4,4,4,4,4,4, 

4,2,4,4,4,4 

4 , 

4 , 

4, 

4 

, 14 

,4,4,4,4,4,4 
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1 4 * 6 Ï 0 a D Î J Î 4 ’ 4 ’ 4 ’ 4 > 4 > 4 .2,4,4,4,4,4,4,4,4, 

oAnA 4 ’ 4 ’ 4 ' 4,4 ' 4 ’ 4 ' 4 ' 2 ' 4 ' 4 ' 4 » 4 » 4 » 4 
2700 DATA 4,4,4,4,4 424444444^ 

oA?a 414 * 4 * 4 ’ 4 * 4 * 4 » 4 • 2 * 4 « 4 - 4 ! 4 ! 4 ! 4 * 

2710 DATA 4,4,4 44424444444a 
2720 DATA 4,4,4,4,4,4 244444444 
^oA 4 ’ 4 ’ 4,4 ' 4,4 ' 4 ' 4 ’ 2 ’ 4 ’ 4 - 4 ' 4 - 4 * 4 ' 

fl fl « « T « 4 ’ 4 ’ 4 ' 4 » 4 » 4 » 6 . 8 ,8,8,8,8,8,8,8, 

8.8.8.8.8.8.8.8.8.8.10.4.4.4.4.4.4 

2740 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4 ’ 4 ’ 4,4,4 * 4 » 4 » 4 * 4 > 4 »4,4,4,4,4,4,4 
2750 DATA 4,4,4,4,4,4,4,4 > 4 444444 

4 » 4 . 4 . 4 ,4,4,4,4,4,4,4,4,4,4,4,4^4’ 

2760 DATA 4,4,4,4,4,4,4 44444444 

4 > 4 , 4 ,4,4,4,4,4,4,4,4,4l4l4l4,’4,*4’ 

2770 REM Niv 8 

2780 DATA 4,4 444444444444/1 

4.4 4, 4i4i4i4i 4 ; 4 ; 4 ; 4 ; 4 ; 4 ; 4;4:4 ; 4 . .4.4, 

2790 DATA 4,4,4,4,4,4,4 4 4444444 

A 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 > 4 ' 4 ' 4 • 4 « 4 » 4 » 4 i 4 ' 

2800 DATA 4,4,4,4,4,4,4,4,4 444444 
4 » 4 *4,4,4,4,4,4,4,4,4,4,4,4,4^4*4* 

2810 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 
4 » 4 .4,4,4,4,4,4,4,4 > 4|4[4 , ,4i4[4]4’ 

2820 DATA 4,4,4,4,4,4 ( 4 ( 4,4 4 4 4 4 4 4 
4,4,4,4,4,4,4,4,4,4,4,4,4,4*4^4,’ 4* 

2830 DATA 4,4,4,4,4,4,4,4,4 444444 

4,4,4,4,4,4,4,4,4,4,4[4’4’4|4|4!4’ 

2840 DATA 4,4,4,4,4,4,4,4,4 444444 

4.4.4.4.4.4.4.4.4.4.4.4.4, 

2850 DATA 4,4,4,4,4,4,4,4 4 444444 

4,4,4,4,4,4,4,4,4,4,4[4[4’4|4[4,V 

2860 DATA 13,1,1,1,1,1,,,! f !,! f , f 1 f ,,,,, 

,1,12,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

2870 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

^.4,4,4,4,4,4,4,4,4,4,4,4,4,41414’ 

2880 DATA 4,4,4,4,4,4 f 4 j 4 > 4 444444 

o qA n * 1 ’ 1 ’ 1 ’ 1 » 1 * 1 » i . ï . î . i , î , 1 , î , î, 12 ’ 

2890 DATA 4,4,4,4,4,4,4,4,4 444444 

4 > 4 )4,4,4,4,4,4,4,4,4,4,4,4l4l4l4* 

2900 DATA 4,4,4,4,4,4,4,4,4,4 44444 
4 » 4 ,4,4,4,4,4,4,4,4,4,4*, 4 [ 4 | 41 4 ) 4 ’ 

2910 DATA 4,4,4,4,4,4,4,4,4,4,4 4444 
4 ,4,4,4,4,4,4,4,4,4,4,4,4,4)4'4^4’ 

2920 DATA 4,4,4,4,4,4,4,4,4,4,4 4444 

4.4.4.4.4.4.4.4.4.4.4.4 [4’4^ 4’, 4' 

2930 DATA 4,4,4,4,4,4,4,4,4 444444 
4 ’4,4,4,4,4,4,4,4,4,4,4] 4] 4,4,4,4 
2940 DATA 4,4,4.4,4.4 44444444A 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

2950 DATA 4,4,4,4,4,4,4,4 4444444 

4,4,4,4,4,4,4,4,4,4,4^4!4^4]4^4^4’ 

2960 DATA 4.4.4.4.4 4444444ÆA/1 

9 9 y i 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

2970 DATA 4,4,4,4,4,4,4,4,4 4 4 4 4 4 4 

4.4.4.4.4.4.4.4.4. 4 .4 ! 4’, 4,4, 4', 4^4’ 

2980 REM Niv 9 

2990 DATA 4.4,4,4,4,4,4 44444444 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3000 DATA 4,4,4,4,4,4,4,4,4,4 44444 

4.4.4.4.4.4.4.4.4.4, 

3010 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
3020 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4 f 4 t 4 


4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3030 DATA 4,4,4,4,4,4,5, 1, 1, 1, 1 , 1 , 1 , 1 , 1 , 
17, 1, 1, 1, 1, 1,1,1, 1,1,9,4,4,4,4,4 
3040 DATA 4,4,4,4,4,4,2,4,4 444444 

4,2,4,4,4,4,4,4,4,4,4’2[4!4[4i4,V 

3050 DATA 4,4,4,4,4,4,2,4,4,4,4,4,4,4,4, 

4.2.4.4.4.4.4.4.4.4.4.2.4.4.4.4.4 

3060 DATA 4,4,4,4,4,4,2,4 4444444 
4,2,4,4,4,4,4,4,4,4,4’2[4 , ,4!4’,4!4’ 

3070 DATA 4,4,4,4,4,4,11,4,4,4 44444 
,4,2,4,4,4,4,4,4,4,4,4,11,4,4,4,4,4 
3080 DATA 4.4.4,4.4.4 44444ZL4ZLZI 

9 9 9 9 t 

4.2.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3090 DATA 4,4,4,4,4,4,4,4,4 444444 

4,2,4,4,4,4,4,4,4,4,4,4^ 4^41 4’ 

3100 DATA 4,4,4,4,4,4,14,4,4,4,4,4,4,4,4 
,4,2,4,4,4,4,4,4,4,4,4,14,4,4,4,4,4 

3110 DATA 4,4.4.4 4 4 2 4 4 4 ZL A zi zi /1 

» » > » » » > > 

4.2.4.4.4.4.4.4.4.4.4.2.4.4.4.4.4 

3120 DATA 4,4,4,4,4,4,2,4,4,4 4 4 4 4 4 
4,2,4,4,4,4,4,4,4,4,4,2,4'4]4’4[4’ 

3130 DATA 4,4,4,4,4,4,2,4 4444444 

4,2,4,4,4,4,4,4,4,4i4|2’4 , ,4’4|4i4’ 

3140 DATA 4,4,4,4,4,4,6, 1,1, 1,1,1, 1,1,1, 
1 *I 5 ,1,1,1• 1. 1,1, 1 , 1 , 1 , 10 ,4,4,4,4,4 
3150 DATA 4 4 4 A 4 4 4 ^ 

4 4 4, 4j 4 i4i 4 i4 4 ; 4 ; 4 ; 4 ; 4 ; 4 | 4 | 4 ; 4 ' 

3160 DATA 4,4,4,4,4,4,4,4,4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4,4,4^4^4] 4,4,4, 4’ 

3170 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

o;^ 4 ’ 4,4,4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ' 4 ’ 4 

3180 DATA 4,4,4,4,4,4,4,4 4444444 
4 .4,4,4,4,4,4,4,4,4,4,4,4[4’4’4^4’ 

3190 REM Niv 10 

3200 DATA 4,4,4,4,4,4,4,4,4 4 4 4 4 4 4 
4 » 4 > 4 » 4,4,4,4,4,4,4,4,4,4,4,4 ’ 4 \ 4 * ’ ’ ’ 
3210 DATA 4,4,4,4,4,4,4,4,4 4 4 4 4 4 4 
4 » 4 » 4 » 4 ,4,4,4,4,4,4,4,4,4,4,’ 4*4*4* 

3220 DATA 4,4,4,4,4,4,4,4 4444444 
4 >4,4,4,4,4,4,4,4,4,4,4*4*4|4^4^4* 

3230 DATA 4 ,4,4,4,4,4,4 44444444 

t;?n 4 r; 4,4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 « 4 » 4 > 4 » 4 ! 4, 

3240 DATA 4 f 4 > 4 > 4 > 4,4,4 4 4 4 4 4 4 4 4 

4 ’ 4,4 ’ 4,4 ,4,4,4,4,4,4*, 4*4* 4*4*4*4* 

3250 DATA 4,4,4,4,4,4,4,4,4 444444 

4 ’ 4 ’ 4,4,4 ’ 4 , 4, 4,4,4* 4|4*4*, 4*4*, 4*4* 

3260 DATA ^f4,4,4,4 f 4j4|4 4 4 4 4 4 4 4 

4 » 4 > 4 . 4 , 4 , 4 ,4,4,4,4,4,4[4’4l4’,4’4’ 

3270 DATA 4,4,4,4,4,4,4,4,4 444444 

4 » 4 . 4 , 4 ,4,4,4,4,4,4,4,4*4[4]4^4*4* 

3280 DATA 4,4,4,4,4,4,4,4,4 444444 

4 , 4 ,4,4,4,4,4,4,4,4,4*, 41 4 ! 4 ! 4 ^ 4 ’ 

3290 DATA 4 , 13, 1, 1,1, 1, 1, 1, 1, ! f 1 , ! , , f 1 f 1 

aIaM ’ 1,1 ’ 1 ’ 1 ’ 1 ’ 1 ’ 1 ’ 1 ’ 1 ’ 1 ’ 1 » 1 » 12 » 4 

3300 DATA 4 ,4,4,4,4,4,4,4,4 444444 

4 . 4 .4,4,4,4,4,4,4,4l4l4l4l4l4l4l4* 

3310 DATA 4,4,4,4,4,4,4,4,4 444444 
4 .4,4,4,4,4,4,4,4,4,4,4! 4*, 4 [4! 4! 4* 

3320 DATA 4 f 4 f 4 y 4,4,4,4 f 4 J 4 4 4 4 4 4 4 
4 , 4 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4^4* 
^ 3 ^°/7 D y A 4,4,4,4 » 4 » 4 » 4 » 4 > 4 » 4 » 4 > 4 »4,4,4, 

4|4 >4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

3340 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4,4!414!4!4!4]4!4[4* 

3350 DATA 4,4,4,4,4,4,4,4 > 4 444444 
















4 ’ 4 I 4 ’ 4 ’ 4 ’ 4 » 4 > 4 ,4,4,4,4,4,4,4,4,4 

^ 3 ^°/ 1 D î T î 4 ’ 4 ’ 4 ’ 4 « 4 > 4 > 4 . 4 »4,4,4,4,4,4,4, 
4 » 4 , 4 ,4,4,4,4,4,4,4,4,4,4,4,4,4^ 

3370 DATA 4,4,4, 4 ( 4 f 4 f 4 f 4 ( 4 444 444 
4 » 4, 4 ,4,4,4,4,4,4,4 ,4 4 4 4 444 ’ 

3380 DATA 4,4,4,4,4,4,4,4 ) 4 *4,’ 4 Y4,4,4, 
4 *4,4,4,4,4,4,4,4,4,4,4, 4 , 4 , 4 , 4,4 
3390 DATA 4 4 4 4 4 4 4 4 4 

4 » 4,4,4,4,4,4,4,4,4 ’ 4 ’ 41 4'4 ’ 4 ’, 41 4 ’ 

3400 REM Niv 11 

3410 DATA 4,4,4,4,4,4 4 4 4 4 4 Zi 4 4 4 

4 .4,4,4,4,4,4,4,4,4’4’4[4i4[4 , ,4!4’ 

3420 DATA 4,4,4,4,4, 4,4 44444444 
4 » 4 .4,4,4,4,4,4,4,4, 4 ]4[ 4 ’4Y4^4* 

3430 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 
4 ’ 4 ’4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

3440 DATA 4,4,4,4,4,4,14,4,4,4,4,13,1,1, 
1 * 1 » 1 » 1 , 1 * 1, 12,4,4,4,4, 14,4,4,4,4,4,4 
3450 DATA 4,4,4,4,4, 4 ,2,4 4444 44 4 

4 ’ 4 ’ 4 «4,4,4,4,4,4,4,2,4,4,4,4 Y 4 ’ 

3460 DATA 4,4,4,4,4, 4 ,2,4 4444444 

4 > 4 '4,4,4,4,4,4,4 Y 2 Y 4 Y 4 Y 4 ’ 

3470 DATA 4,4,4,4,4,4,2 4 4 4 4 4 4 4 4 

4 .4.4.4.4.4.4.4.4.4 .2 YYYYYY 

3480 DATA 4,4,4,4.4 424444AAAA 
4 ’ 4 ’ 4 ’ 4 > 4 > 4 > 4 ,4,4,4,2,4,4,4,4,4,4 
3490 DATA 4,4,4,4,4,4,2,4,4 444444 

4.4.4.4.4.4.4.4.4 Y 2 YY 4 Y 4 ,Y 

3500 DATA 4,4,4,4,4,4,16,1,1,1,1,1,1,1,! 

» 1, 1*1,1, 1,1, 1,1, 1, 1, 18,4,4,4,4,4,4 
3510 DATA 4,4,4,4,4, 4 ,2,4,4,4 44444 

4.4.4.4.4.4.4.4.4.4.2 Y 4 Y 4 ,' 4 Y 

3520 DATA 4,4.4 444?aaaaa/i/i/> 

4.4.4.4.4.4.4.4.4.4. 2 .4.4.4.4.4.4 

3530 DATA 4,4,4,4,4 ; 4 ,2,4,4 444444 

4.4.4 1 4.4.4.4.4 1 4.4 Y 4 Y 4 Y 4 Y 

3540 DATA 4,4,4,4,4,4,2,4,4 444444 

4.4.4.4.4.4.4.4.4.4.2.4 Y 4 Y 4 Y 

3550 DATA 4,4,4,4, 4 , 4 ,2,4, 4,4 44444 

4.4.4.4.4.4.4.4.4 Y 2 Y 4 Y4*4 Y 

3S60 DATA 4,4,4,4,4,4,11,4,4,4,4,13,1,1, 
1» 1» 1» 1» 1 1 1, 12,4,4,4,4, 11,4,4,4,4,4,4 
3570 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

4 » 4 . 4 > 4 ,4,4,4,4,4,4 Y 4 Y 4 Y 4 Y 

3580 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 
4 > 4 ’ 4 ' 4 ' 4 ' 4 - 4 ,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

3600 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3610 REM Niv 12 

3620 DATA 4,4,4,4, 4 , 4 f 4 f 4 4444444 

14.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3630 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

2 .4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3640 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

a 4 a 4 ’ 4 * 4 ’ 4 ’ 4 * 4 ’ 4 » 4 » 4 - 4 » 4 » 4 « 4 » 4 ' 

3650 DATA 4,4,4,4, 4 ,4,4,4,4,4,4,4,4 4 4 

2.4.4.4.4.4.4.4.4.4.4.4.4 4 4 4 4 

3660 DATA 4,4,4,4,4,4,4 1 4 ,' 4 ’ 4 ' 4’4 4 4 4 

2 ,4,4,4,4,4,4,4,4,4, 4 , 4,4 4 4 4 4 

3670 DATA 4,4,4,4, 4 ’ 4 Y 4 Y 4 Y 4 4 4 4 

2 » 4,4,4,4,4,4,4,4,4, 4 ,4,4,4,4,4,4 ’ 

3680 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 
2 »4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 ,4 


3690 DATA 4,4,4,4,4,4,4,4,4,4 44444 
2,4,4,4,4,4,4,4,4,4,4,4^ 4’, 4^ 4] 4^ 4’ 

3700 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4 4 4 

11.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 
3710 DATA 4,4,4,4,4,4,4,4,4 444444 
4>4, 13, 1,1, 1,1, 1,1,1, 1,1, 1,1,1, 1^2* 

3720 DATA 13,1, 1,1, 1, 1, 1, 1, 1, 1 , 1 , 1 , 1 , 1 , 1 

2.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 
3730 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4.14.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 
3740 DATA 4,4,4,4,4,4,4,4,4,4 44444 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,41414' 

3750 DATA 4,4,4,4,4,4,4,4,4 t 4 44444 

4,2,4,4,4,4,4,4,4,4Y4Y,4Y4Y 

3760 DATA 4,4,4,4,4,4,4,4 f 4 444444 

4,2,4,4,4,4,4,4,4,4,4,4,4,4,4*4,'4' 

3770 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4.2.4.4.4.4.4.4.4.4 Y 4 Y 4 Y 4 Y 

3780 DATA 4,4,4,4,4,4,4,4 f 4 444444 

42.4.4.4.4.4.4.4.4 Y 4 Y 4 Y 4 Y 

3790 DATA 4,4,4,4,4,4,4,4 4444444 

4.2.4.4.4.4.4.4.4.4.4.4 Y4 Y4 Y 

3800 DATA 4,4,4,4,4 f 4 > 4 f 4^4 444444 

4 »2,4,4,4,4,4,4,4,4,4,4 Y 4 Y 4 Y 

3810 DATA 4*414,4,4,4,4,4 4 4 4 4 4 4 4 

4.11.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

3820 REM Niv 13 

* 8 * 0 „ DATA 4 ’ 4 ’ 4 ’ 4 ’ 4 . 4 . 4 .4,4,4,4,4,4,4,4, 

4 ’ 4 ( L 4 i L 4 » 4 » 4, 4,4,4,4,4,4,4, 4 ,4, 4 ,4 

3840 DATA 4,4,4,4,4 f 4 f 4^4 4444444 

4 » 4 . 4 , 4 ,4,4,4,4,4,4,4 Y 4 Y 4 Y 4 

3850 DATA 4,4,4,4 4 4 4 4 a a a /1 /1 /> /» 

4,4,4,4,4, 

3S6° DATA 4,4,4,4,4,5,1,1,1,12,4,4,13,1, 
’i’’1.1.1,12,4,4,13,1,1,1,9,4,4,44 
3870 DATA 4,4,4,4,4 t 2,4 44444444 

tûo ,4 ' 4,4 ’ 4 ’ 4,4,4,4,4,4 ' 2 ' 4 » 4 » 4 >4 , 

Il a°a T a «’ 4 ’ 4 > 4 ’ 4 > 2 . 4 . 4 . 4 ,4,4,4,4,4,4, 
odoA 4 A 4,4,4,4,4 » 4 > 4 >4,4,2,4,4,4,4 
3890 DATA 4,4,4,4,4 f 2,4,4,4 444444 

tAnA 4,4 ’ 4,4,4 ’ 4,4,4 ’ 4 ’ 4 ’ 2 ’ 4 ' 4 Y4* 

3900 DATA 4,4,4,4 f 4 f 2,4,4 4444444 

oA?A 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 » 4 ' 2 » 4 » 4 ! 4 ,’4 ’ 

3910 DATA 4,4,4 442444AAAa/i a 

4,2,4,4,4,4,4,4Y4YY2YY4 4 ’ ’ 

3920 DATA 4 4 4.4,4,,6.i,1.î,i.ï?,.,,,., 

» 1 » 3 » 1 » 1 » 1,1, 1,1, 1,1, 1,118,4 4 4 4 
3930 DATA 4,4,4,4,4,2,4,4,4Y4Y4,4, 4 

oA^A 4 A 4 ’ 4 ' 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ' 4 » 2 » 4 » 4 » 4 ,4 
3940 DATA 4,4,4,4,4 24444444aa 

4 » 2 »4,4,4,4,4,4,4 4 4 4 2 4 a a /i' ' ' ' 

3950 DATA 4,4,4,4 Y 2 Y 4 Y 4 4 4 444 

4 » 2,4,4,4,4,4,4,4,4,4,4 2 4 4 44 

3960 DATA 4,4,4,4,4,2,4,4,4,4Y4,4,4,4 

qAoA 4 A 4 ’ 4 ’ 4,4,4,4,4 ’ 4 ’ 4 ’ 2 ’ 4 ' 4 >4,4 

3970 DATA 4,4,4,4,4 f 2 44444444 a 

4 12.4.4.4.4.4.4 4 4 4424 a'a’a* ' ’ ' 

396° DATA 4,4, 4 ,4,4:e:,2X4, ,3,1, 

oAIa 15, ^ ’ 1 ’ 1 » 12 » 4 » 4 » 1 3, 1, 1, 1^ 10,4,4,4 4 
3990 DATA 4,4,4,4 f 4 f 4 t 4 4444 4 4 4*4 

4 » 4,4,4,4,4,4,4,4,4,4,4,4 4 4 4 4 * ’ 

4000 DATA 4,4,4,4,4,4 4 4 4 4 4*4 4 4 a 

^a?a 4 a«; 4,4,4,4 ' 4 ’ 4 ’ 4 ' 4 ' 4 ' 4 ' 4 ' 4 »4’ 

4010 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

4 » 4 > 4 . 4 , 4 ,4,4,4,4,4,4,4,4,4Y 4 Y 


125 






4020 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 
4 ' 4 ’4,4,4,4,4,4,4,4,4,4,4’4[4’4Y 
4030 REM Niv 14 

4040 DATA 4,4,4,4,4,4 4 4 4 4 4 4 4 4 4 

4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4 . 4.4 

4050 DATA 4,4,4,4,4,4,4 ( 4 4 4*4’4 444 

4 .4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 [ 4 ’ 

4060 DATA 4,4 44444444 44 444 

4,4,4,4,4,4,4,4;4;4;4;4;4;4;4;4y ■ 

4070 DATA 4,4,4,4,5,1,1 1 1 1 1 1 1 1 1 

4080 DATA 4,4,4,4,2,4,4,4,4,4,4,4 444 

4 .2.4.4.4.4.4.4.4.4.4.4.4.2.4.4 4’ 
4 ( 4 . 4 . 4 .2. 4 . 4 . 4 , 4 ,4,4,4,4,4,4, 

4 >2,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4 
4100 DATA 4,4,4,4,2,4,4,4,4 444444 

4,2,4,4,4,4,4,4,4,4,4,4,4*2 Y 4 Y 

4110 DATA 4,4,4,4,2,4,4,4,4,4,14,4,4,4,4 

^An’ 4 ’ 4,4,4,4,14 > 4 < 4 >4,4,4,2,4,4,4 
4120 DATA 4,4,4,4,2,4,4,4,4,4,2,4 444 

4 »2,4,4,4,4,4,2,4,4,4,4,4,2,4,4,4 

4130 DATA 4,4,4,4,2,4 4 4 4 4 2 4 4 4 4 

4 .2.4.4.4.4.4.2.4.4.4.4 Y2 Y4 Y 

4140 DATA 4,4,4 4 2 4 4 4 4 4 2 zi zi zi zi 

4,2,4,4,4,4,4,2 Y 4 YYY 2 4 ’ 4 ’ 4 * ’ ’ ’ 

4150 DATA 4,4,4,4,2,4,4,4 4 ’ 4 ’ 2 ’ 4 4 4 4 

4,2,4,4,4,4,4,2,4,4Y4YY4Y4’ 

4160 DATA 4,4,4,4,11,4,4,4,4,4 24444 
.4. 1 1,4,4,4,4,4,2,4,4,4,4,4,11’4 Y 4’ 
4170 DATA 4,4,4,4,4,4,4 4 4 4 2 4 4 4 4 

4.4.4.4.4.4.4.2.4.4.4 Y4 Y4 Y4’ 

4180 DATA 4,4,4,4,4,4,4,4,4,4 24444 

4.4.4.4.4.4.4.2.4.4.4.4.4.4.4 Y 4 ’ 

4190 DATA 4,4,4,4,4,4,4,4,4,4,2,4,4,4,4, 

4.4.4.4.4.4.4.2.4.4.4.4.4.4.4.4.4 

4200 DATA 4,4,4,4,13,1,1,1,1,1,15,1,1,1, 

YY>1, 1,1, 1,1,15,1,1,1,1,1,12,4,4,4 

4210 DATA 4,4,4,4,4,4,4,4,4 444444 

4,4,4,4,4,4,4,4,4,4,4,4,4YY4Y 

4220 DATA 4,4,4,4,4,4,4 4 4 4 4 4 4 4 4 

4.4.4.4.4.4.4.4.4 4 4 4 4 4 4 4 4* ’ ’ ’ 
4230 DATA 4,4,4 444444 4’4’4 zi zi zi 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4240 REM Niv 15 

4250 DATA 4,4,4,4,4,4,4,4,4 444444 

4. 4 .4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4260 DATA 4,4,4,4,4,4,4,4,4 444444 

4.4.4.4.4.4.4.4.4.4 Y4 Y4 Y4 Y 

4270 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4.4.4.4.4.4.4.4.4.4.4 Y 4 Y 4 Y 4’ 

4200 DATA 4,4,4,4,4,5,1,1,1,1,lj,i,i 12 
,4,4,13,1,1,1,1,1,1,1,1,g,A,4,4,4,4 
4290 DATA 4,4,4,4,4,2,4,4,4 444444 

4.4.4.4.4.4.4.4 Y 4 Y2 Y 4 Y 4 Y 

4300 DATA 4,4,4,4,4,2,4,4,4 444444 

4.4.4.4.4.4.4.4.4 Y 4 Y 4 Y 4 Y 4 ’ 

4310 DATA 4,4,4,4,4,2,4,4 4444444 

4 ,4,4,4,4,4,4,4,4 YY 2 ,’4 ,’4 ,’4 | 4 ,’4 ’ 

4320 DATA 4,4,4,4,4,2,4,13,1,1,1,1,1,1 1 
’ 1 > 1 . 1 » 1 , 1 , 1 , 1 , 1 , 1 , 12,4,2,4,4,4,4,4 
4330 DATA 4,4,4,4,4,2,4,4,4,4,4,4 444 

4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4’ 

4340 DATA 4,4,4,4,4,2,4 4 4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4Y4Y2Y4Y4Y 

4350 DATA 4,4,4,4,4,2,4,4,4,4,4,4,4,4,4, 


4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4 

4360 DATA 4,4,4,4,4,2,4,13,1,1,1,1,1,1, 
.M, 1,1, 1,1, 1,1, 1,12,4,2,4,4,4,4,4 

4370 DATA 4,4,4,4,4,2,4,4 ,4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4,4,4,4*2 Y 4 Y 4 Y 

4380 DATA 4,4,4,4,4,2,4,4,4,4,4,4,4,4,4 

4,4,4,4,4,4,4,4,4,4,4, 2 ,4,4,4,4,4 

4390 DATA 4,4,4,4,4,2,4,4,4,4,4,4,4,4,4 

4.4.4.4.4.4.4.4.4.4.4.2.4.4.4.4.4 

4400 DATA 4,4,4,4,4, 6 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 ; 
,4,4,13,1,1,1,1,1,1,1, 1 ,10,4,4,4,4,4 
4410 DATA 4,4,4,4,4,4,4, 4,4 444444 

4.4.4.4.4.4, a,4,4,4,4’,4',4’,4]4,4' 

4420 DATA 4,4,4,4,4,4,4, 4 , 4,4 44444 

4.4.4.4.4.4.4.4.4.4 Y4 Y4 Y4 Y 

4430 DATA 4,4,4,4,4,4,4,4, 4,4 44444 

4.4.4.4.4.4.4.4.4.4.4, ’ 4 Y 4 Y 4 Y 

4440 DATA 4,4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 

4 , 4 , 4 , 4 , 4 , 4 ,4,4,4,4,4Y 4 YY 4 Y 

4450 REM Niv 16 

4460 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4,4,4,4,4,4,4,4 f 4Y4Y4Y4YY 

4470 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4480 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4490 DATA 4,4,4,4,4,5, 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 _ 
1 » 1 ■ 1 • 1 > 1 » 1 , 1 , 1 , 1 , 1 , 1,9,4,4,4,4,4 
4500 DATA 4,4,4,4, 4 ,2,4,4,4 ,4 44444 

4,4,4,4,4,4,4,4,4,4,412 Y 4 Y 4 Y 

4510 DATA 4,4,4,4,4,2,4, 4,4 444444 

4.4.4.4.4.4.4.4.4.4 Y 2 Y4 Y4 Y 

4520 DATA 4,4,4,4,4,2, 4,4 4444444 

4,4,4,4,4,4,4,4,4,4,4,2',4',4’,4’,4’,4’ 

4B30 DATA 4,4,4,4,4,2,4,4,4,S, 1, 1 , 1 , 1 ( 1 £ 
(4,4,13,1,1,1,1,9,4,4,4,2,4,4,4,4,4 
4540 DATA 4 f 4,4,4,4 > 2,4,4 4 2 4 4 4 4 4 

*;?a 4 ’ 414 ’ 4 * 4 * 2 * 414 Y 2 Y 4 Y 4 Y 

4550 DATA 4,4,4,4,4,2,4,4 ,4 244444 

4,4,4,4,4,4,4,2 Y4 Y 2 Y4 Y4 Y 

4560 DATA 4,4,4,4,4,2,4,4 4244444 

4,4,4,4,4,4,4,2,4YY2Y4Y4Y 

4570 DATA 4,4,4,4,4,2,4,4,4,2,4,4,4,4,4, 

4.4.4.4.4.4.4. 2 .4.4.4. 2 .4.4.4.4.4 

4580 DATA 4,4,4,4,4,2,4,4,4, 6 , 1 , 1 , 1 , 1 , 1 , 

1 » 1 - 1 . 1 . 1 , 1, 1, 10,4,4,4,2,4,4,4,4,4 
4590 DATA 4 ,4,4,4,4,2,4,4,4 444444 

4,4,4,4,4,4,4,4,4,4Y2Y4Y,4Y 

4600 DATA 4,4,4,4.4 24444444ZLZL 

4.4.4.4.4.4.4.4.4.4.4. 2 .4. 4 . 4 . 4.4 

4610 DATA 4,4,4,4,4,2,4,4,4,4 ,4 4444 
4 ,4,4,4,4,4,4,4,4,4,4, 2 ,4,4|4’4 | 4 ’ 

4620 DATA 4,4,4,4,4,6,1,1,1,1,1,1,1,1,12 
,4,4,13,1,1,1, 1 , 1 , 1 , 1 , 1 , 10 , 4 , 4 , 4 , 4,4 
4630 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4640 DATA 4,4,4,4,4,4 ,4 44444444 

4.4.4.4.4.4.4.4.4.4.4.4 Y 4 Y 4 Y 

4650 DATA 4,4.4.4.4 44444444Z1ZI 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

4660 REM Niv 17 

4670 DATA 4,4,4,4,4,4,4,4,4,14,4,4,4 4 4 

>4,4,4,4,4,4, 14,4,4, 4 Y 4 Y 4,4,4,4 

4680 DATA 4,4,4,4,4,4,4,4,4,2,4,4,4,4,4 

4.4.4.4.4.4. 2 .4.4.4.4.4.4.4.4.4 Y 


26 
















4690 DATA 4,4,4,4,4,4,4,4,4,2 4 4 4 4 4 

4,4,4,4,4,4,2,4, 

4700 DATA 4,4,4,4,4,4,4,4,42 4 4 4 4 4 

4.4.4.4.4.4.2.4.4 ;4;4>;4;4; 4 X 4 ’ 

4710 DATA 4,4,4,4,4,4,4,4,4,2 4 4 4 4 4 
4,4,4,4,4,4,2,4,4,4,4,4,4,4,414,4’ 

4720 DATA 4,4,4,4,4,4,4,4 4 2 4 4 4 4 4 
4,4,4,4,4,4,2,4,4|4i4,’4|4;4|4’4|4’ 

4730 DATA 4,4,4,4,4,4,4,4, 4 ,2 44444 
4>4,4,4,4,4,2,4,4,4,4]4|4|4|4’, 4 ^ 4 ' 

4740 DATA 4,4,4,4,4,4,4,4,4,2,4,4,4,4,4, 

4.4.4.4.4.4.2.4.4.4.4.4.4.4.4.4.4 

4750 DATA 4,4,4,4,4,4,4,4,4,11,4,4,4,4,4 
,4,4,4,4,4,4,11,4,4,4,4,4,4,4,4,4,4 
4760 DATA 4,4,4,4,4,4,4,4,4,4,4,13,1,1,1 
,1,1,1,1,12,4,4,4,4,4,4,4,4,4,4,4,4 
4770 DATA 13,1,1,1,1,1,1,1,12,4,4,4,4,4, 
4,4,4,4,4,4,4,4,13,1,1,1,1,1,1,1,1,12 
4780 DATA 4,4,4,4,4,4, 4 , 4,4 4 14 4 4 4 4 
» 4 » 4 , 4 ’ 4,4, 14,4,4,4,4,4 | 4 ’ 4 ,’ 4,’ 4,4,4 
4790 DATA 4.4.4,4,4 44444P44zi/l 

4.4.4.4.4.2.4.4.4.4.4.4.4.4.4.4.4 

4800 DATA 4,4,4 4444444P4zi/i/i 

4.4.4.4.4.2.4.4.4.4.4.4.4.4.4.4.4 

4810 DATA 4,4,4,4,4,4,4,4 4 4 2 4 4 4 4 

4,4,4,4,4,2,4,4,4,4| 4^’4|4|4| 4^4’ 

4820 DATA 4,4,4,4,4,4 444424444 

4.4.4.4.4.2.4.4.4.4 , 4j4'4 ’, 4 ’ 4 ’ 4’4 ’ 

4830 DATA 4,4,4,4,4,4,4,4, 4,4 2 4 4 4 4 
4,4,4,4,4,2,4,4,4,4,4,4' 4 ’4[ 4 *4* 4 ’ 

4840 DATA 4,4,4,4,4,4,4,4,4 ,4 2 4 4 4 4 
a,4,4,4,4, 2 , 4 ,a,4,a’,4',t',*',4,4',4 ’,a' 

4850 DATA 4,4,4,4,4,4,4,4 ,4 424444 
4,4,4,4,4,2,4,4,4,4,4;4;4>;4;4y 

4860 DATA 4,4,4,4.4 44444 11 44 / 1/1 

,4,4,4,4,4,11,4,4,4,4,4,4,4,4,4,4,4 
4870 REM Niv 18 

4880 DATA 4,4,4,4,4,4,4,4,4,4 4 4 4 14 4 

,4,4,4, 14 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 ’ 

4890 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4 2 4 

^ AnA 4 A 2,4,4,4,4,4,4 ’ 4 ’ 4,4 ’ 4>4 ' 4 ' 4 

4900 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,11,4 

,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4 

4910 DATA 4,4,4,4,4, 4 , 4,4 4 4 4 4 4 4 4 

4.4.4.11.4.4.4.4.4.4.4.4.4.4.4.4.4 

4920 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,14 4 

,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

4930 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,2,4 

4.4.4.14.4.4.4.4.4.4.4.4.4.4.4.4.4 
4940 DATA 4,4,4,4,4,4,4,4 ,4 4 4 4 4 2 4 

4.4.4.2.4.4.4.4.4.4 4 4 4 4 4 4 4 

4950 DATA 1 3, 1 , î , î , î , î 2 I 4 ,* 1 3, î , 1 , 1 , 1 , 1 , , 

0,4,4,4,4,6,1,1,1,1,1,12,4,13,1,1,1,1,12 

4960 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

4.4.4.4.4.4.4.4.4.4.4 

4970 DATA 4,4,4,4,4,4,4,4,4 444444 

4.4.4.4.4.4.4.4.4. 4.4 4 4 4 4 4 4 

4980 DATA 4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 4 
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4[ 4 ]4* 

4990 DATA 4,4,4,4,4,4, 4,4 4 4 4 4 4 4 4 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

5000 DATA 13,1,1,1,12,4,13,1,1,1,1,1,1,9 
,4,4,4,4,5,1,1,1,1,1,1, 12 ,4,13,1,1,1 12 
5010 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 2 4 

4.4.4.2.4.4.4.4.4.4.4.4.4.4.4 4 4 


5020 DATA 4 ,4,4,4,4,4,4,4,4,4, 4,4 424 

4.4.4.11.4.4.4.4.4.4.4.4.4.4.4.4.4 

5030 DATA 4 ,4,4,4,4,4,4,4, 4 , 4 , 4 , 4,4 11 4 

,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 

5040 DATA 4,4,4,4,4,4,4,4, 4 , 4,4 4444 

4.4.4.14.4.4.4.4.4.4.4.4.4.4.4.4.4 

5050 DATA 4,4,4,4,4,4,4, 4 , 4 , 4 , 4,4 4 14 4 

,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4 ,4 

5060 DATA 4,4,4,4,4,4.4 44444404 

4.4.4.2.4.4.4.4.4.4.4.4.4.4.4.4.4 

5070 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,11,4 
,4,4,4,11,4,4,4,4,4,4,4,4,4,4,4,4,4 
5080 REM Niv 19 

5090 DATA 4,4,4,4,4,4,4,14,4,4,4,4,4 4 4 
,5,9,4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
5100 DATA 4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
,6,10,4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
5110 DATA 4,4,4,4,4,4,4 ,4 4444444 
4,4,4,4,4,4,4,4,4,4,4,4,4, 

5120 DATA 4,4,4,4,4,4 ,4 14 4444444 
,5,9,4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
5130 DATA 13,1,12,4,13,1,1,3,1,1,12,4,13 
,1,1,18,16,1,1,12,4,13,1,1,3,1,1,12,4,13 
,1,12 

5140 DATA 4,4,4,4,4,4,4,11,4,4 44444 

, 6 , 10,4,4,4,4,4,4,4, 11,4,4^4, 

5150 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 

5160 DATA 4,4,4,4,4,4,4,14,4,4,4.4,4,4,4 
,5,9,4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
5170 DATA 4,4,4,4,4,4,4,2,4,4,4 ,4 444 
2,2,4,4,4,4,4,4,4,2,4|4’4|4;4,’4;4’ 

5180 DATA 5,1,9,4,5,1,1,15,1,1,9,4,5,1,1 
,18,16,1,1,9,4,5,1,1,15,1,1,9,4,5,1,9 
5190 DATA 6,1,10,4,6,1,1,17,1,1,10,4,6,1 
,^,18, 16, 1,1, 10,4, 6 , 1,1, 17, 1,1, 10, 4 ,6,1, 

5200 DATA 4 ,4,4,4,4,4,4,2,4 444444 
2,2,4,4,4,4,4,4,4,2,4’4’,4’4’4!4!4’ 

5210 DATA 4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
,6,10,4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
5220 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

?; 4 I 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 • 4 - 4 . 4 > 4 ,4,4,4 

5230 DATA 4,4,4,4,4,4,4,14 4444444 

, S, 9, 4,4,4,4,4,4,4, \ 4 ’, 4 ^ 4 , 4 , 4 , 4 , 4,4 
S240 OATA 13,1,12,4,13,1,1,3,1,1,12,4,13 
,1,1,10,6,1,1,12,4,13,1,1,3,1,1,12,4,13, 

S2S0 DATA 4,4,4,4,4,4,4,11,4,4,4,4,4,4 4 
,4,4,4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 

5260 DATA 4,4, 4 ,4, 4 t 4 t 4 f 4 4444444 
fi 4 ' 4 » 4 ’ 4 * 4 » 4 » 4 » 4 » 4 » 4 ,4 , 4 , 4 | 4 ’, 4 ’ 4 ’ 

5270 DATA 4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
> 4 .4,4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
5 ^ 8 ° DATA 4 > 4 i 4 i 4 i4|4,4,11*4,4,4,4,4,4,4 
’ 4 i 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ' 4 ’ 4 ’ 11 .4,4,4,4,4,4,4 
5290 REM Niv 20 

5300 DATA 4,4,4,4,4,4,4 ,4 4 4 4 4 4 4 4 
4,4,4,4,4,4,4,4,4,4,4,4,4,4^4^ 4 * 4 ’ 

5310 DATA ^ 4 - A 4 4 

4,4,4,4,4,4,4,4,4,4,4’4|4|4’4’4i4’ 

5320 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4 4 

4 ,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 
5330 DATA 4,4,4,13,1,9,4,4,4,4,4,4,4,4,4 
.4,4,4,4,4,4,4,4,4,4,4,5,1,12,4,4,4 








S340 DATA 4,4,4,4,4, 6 ,1,9,4,4,4,4,4,4,4, 

fifA 4 ’ 4 ’ 4 ’ 4 >4.4,4,S,1,10,4,4,4,4,4 

4 4 /l 4 .4,4,4, 6 ,’, 9,4,4,4,4,4, 

4 » 4 i 4 , 4 ,4,4,4,5,1,10,4,4,4,4,4,4 4 

4 3 f°/. D ^ 4 ’ 4 - 4 >4,4,4,4,4,4,6,î,9,4,4,4, 

f;oÂ ’ 4 ' 4 ’ 5 ’ ^ » 10 i 4 i 4 i 4 i 4 i 4 ,4, 4 i 4 ) 4 
5370 DATA 4 , 4 ,4,4,4,4,4,4,4,4,4 ,6 , 1,9,4 

4.4.4.5.1.10.4.4.4.4.4.4.4.4.4 44 

5380 DATA 4,4,4,4,4,4 À 4 4 4 444 

c4oA 1 ’ 10 ’ 4 ’ 4 « 4 > 4 >4,4,4,4,4,4,4,4,4 
5390 DATA 4,4 4444444444 / 1 / 1 /. 

16,18,4,4,4,4,4;4;4;4;4V4;4 , 4 4 4 ’ ’ 

4 » 4 >4,4,4,4, 4 ,4,4,4,' 4^4,' 4,5,7, 

10.6.7.9.4.4.4.4.4.4.4 4 4 4 4 4 4 

5410 DATA 4,4,4,4, 4 , 4 , 4 t 4 44457 10 4 
i 4 ’ 4 ’4,6,7,9,4,4,4,4, 4 ,4,4,4, 4 ,4,4 
S42 ° DATA 4 ’ 4 ’ 4 ’ 4 » 4 . 4 » 4 . 4 , 4 ,S,7,10,4,4,4 
» 4 » 4 , 4 ,4,4, 6 ,7,9,4,4,4,4,4,4,4,4,4 
5430 DATA 4 ,4,4,4,4,4,4,5,7,10, 4 ,4,4,4,4 
, 4 , 4 ,4,4,4,4,4, 6 ,7,9,4,4,4,4,4,4,4 
5440 DATA 4,4,4,4,4,5,7, 1 0,4, 4 ,4,4,4,4,4 

,4,4,4,4,4,4,4,4,4, 6 ,7,9,4,4,4,4,4 

5450 DATA 4,4,4,13,7,10,4,4,4,4,4,4 4 4 

c; c 4 ;V- 4 ' 4 - 4 - 4 - 4 - 4 - 4 - 4 . 6 :v 2 t M,r ’ 
0460 DATA 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, 

4 ; 4 ’ 4 ’ 4 ’ 4 ’ 4 » 4 » 4 » 4 » 4 « 4 » 4 » 4 . 4 > 4 , 4 , 4 
5470 DATA 4,4.4 4 4 4 4 4 4 4 4 4 4 a a 

® 4 ® 0 ° ATA 4,4,4,4,4,4,4,4,4,4,4,4 4 4 

4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4.4 ’ ’ 

5490 DATA 4,4,4,4,4, 4 , 4 , 4 ,4,4 44444 

4 A o A 4 ’ 2 ’ 4 ’ 4 ’ 4 * 4 » 4 » 4 » 4 » 4 » 4 • 4 ! 4 ! 4 ! 4 ’ 

5500 RÊIM Niv 21 

5510 DATA 4,4,4,4,4,4,4,14,4,4,4,4,4,4,4 
'?'^» 4 ' 4 * 4 » 4 » 4 . 4 » 4 . 14 , 4 , 4 ,4,4,4,4,4 

6 ° A I A /1 4 ’ 4 ’ 4 ’ 4 ' 4 ' 4 ' 4 - 2 . 4 . 4 . 4 . 4 , 4 , 4 , 4 , 

6.10.4.4.4.4.4.4.4.2.4.4.4.4.4.4.4 

5S30 DATA 4 ,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
, 4 , 4 ,4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 
5540 DATA 4,4,4,4,4,4,4,4 4 4 4 4 4 4 4 

fAcA 4,4 ’ 4 ’ 4 ’ 4,4,4 ’ 4 ’ 4 ’ 4 ’ 4 » 4 » 4 . 4 . 4 
5550 DATA 1 3, 1 , 1 2,4 , 1 3 , 1 , 1 , 1 , 1 , ! , ! 2 ,4 , 1 3 

’î’ 1 A 18,16 ' 1 » 1 » 12 » 4 » 13 » 1 * 1 . 1 » 1 , 1,12,4,13 

I ' I I 

5S60 DATA 4,4,4,4,4,4,4,4 , a , 4,4, 0 ., 4 4 4 

fifn ’ f ' 4 ’ 4 ’ 4 ' 4 ' 4 ' 4 ' 4 - 4 ’ 4 - 4 . 4 . 4 . 4 . 4 

S ^ 7 ° °ATA 4 » 4 » 4 . 4 , 4 , 4 ,4,14,4,4,4,4,4 4 4 
» 4 » 4 ,4,4,4,4,4,4,4,14,4,4,4,4,4,4 4 
5580 DATâ 4,4,4,4,4,4,4,2,4,4,4,4,4 4 4 

cAoA 4,4,4,4,4,4,4 ’ 2 ’ 4 ’ 4 > 4 .4,4,4 4 

i , ?8 D tr, 6 ; 1 ; 1 ;f D ' 4 ’ 6 ' 1 ‘- i7 - , -’'°’ 4 .é?M 

8 ’ 16 - 1 . 1,10,4,6, 1 , 1?, 1, 10,4,6, 1 , 1 , 

2 6 p°4 D 4 T a f’f , f’ 4 ' 4 ’ 4 ' 4 ’ 2 ’ 4 - 4 ' a - 4 . 4 .«,«, 

2,2,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4 


? 6 ?° ° ATA a i^t^»^ r 4,4,4,2,4,4,4,4,4,4,4 

6,10,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4 
5640 DATA 4,4,4,4,4,4,4,11,4,4,4,4,4,4, 
.4,4,4,4,4,4,4,4,4,11,4,4,4,4,4,4,4 

5650 DATA 4,4,4,4,4 f 4 ? 4 > 4 4444444 

cA?A 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 » 4 * 4 » 4 » 4 » 4 » 4 ! 4 ! 4 ! 4 ’ 

5660 DATA 1 3, 1 , 1 2,4 f 1 3, 1,1 , 1 , 1 , , f -, 2 ,4 , 1 

; 1 ;I ,10,6,1 ’ 1,12 ' 4,13,1,1,1,1 » 1 » 12 » 4 » 1 3 

1,12 

5670 DATA 4,4,4,4,4,4 4 4 4 4 4 4 4 4 4 

4 > 4,4,4,4,4 ’ 4 ' 4 » 4 » 4 » 4 » 4 i 4 ! 4 ! 4 ! 4 ! 4> 

î ^ ^ATA 4,4,4,4,4,4,4,14,4,4,4,4,4,4,- 
AfAn’n ,4 ’ 4,4,4,4,4,14 ' 4 ' 4 ' 4 ’ 4 « 4 > 4 » 4 

5690 DATA 4,4, 4 , 4 , 4 f 4 t 4 24444444 

fi 4 A 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 4 ’ 2 > 4 ! 4 ! 4 ! 4 ! 4 !4,V 
l 0 A ^I A 4 ’ 4 ’ 4 ’ 4 ’ 4 > 4 » 4 » 11 , 4 , 4 ,4,4,4,4,< 
’ 4 * 4,4,4,4,4,4 > 4 » 4 »11i 4 »4,4,4,4,4,4 
5710 REM Niv 22 ’ ’ 

5720 DATA 4,4,4,4,4,4 4 4 4 4 4 4 4 4 * 

fAnA 4 ’ 4 ’ 4,4 ’ 4,4 ’ 4,4 ' 4 ’ 4 ' 4 ’ 4 » 4 » 4 ! 4, 

373 °- DATA 4 , 4 , 4 ,4,4,4,4,4,4,4, 4 ,4,4,4, 4 , 

4 ; 4 i 4 ; 4 ,4,4,4 » 4 > 4 » 4 i 4 i 4 , 4 , 4 , 4 , 4 ,4 
5740 DATA ^>4 f 4 > 4,4 > 4 4 4 4 4 4 4 4 4 4 

4 1 4 » 4 ,4,4,4,4 4,4,4 4 4 4 4 4 4 4* * * ’ 
5750 DATA 4 ,4,4,13,ï,à,4,4, 4 ,iX13,1,9, 

cA^A 4,4,5, 1>12 ' 4 ’ 4 » 4 » 4 i 4 .s,i, 12 , 4 , 4,4 

5760 DATA 4 ,4,4,4,4, 6 ,1,9,4,4,4,4,4 ,6 1 
cAoA 1 ’ 10 » 4 » 4 * 4 » 4 * 4 » 5 » 1 ,io, 4 ,4, 4 , 4 , 4 
fi 2 A I A /, 4,4 ’ 4,4 ’ 4 ’ 4 ’ 4 ’ 6 ’ 1.9.4,4,4,4,4, 
cAcS’ 4 ’ 4,4,4 ' 4 ' 5, 4,4,4,4,4,4,4 
4 4 4 D 2 T 2 4 ’ 4 ’ 4 ’ 4 ’ 4 ' 4 ’ 4 - 4 . 4 >6.'»,9,4,4,4, 

4,4,4,4,4,5,1,10,4,4,4,4,4,4,4 4 4 

5799 DATA 4 , 4 ,4,13,1,9,4,4,4,4,4,’ô,1 9 4 
,4,4,4,5,1 , 10 4 ,4,4,4,4,5, 1, 12 4 4*4* * 

5800 DATA 4,4,4,4,4 ,' 6 ,’ 1 ,’ 94 ,’ l t 4,ï*k S 1 

9,5, 1 ,10,4,4,4,4,4,5 ,1 10 , 4,44 4 4 
S810 DATA 4.4,4.4,4,4,4,16, 8 4 44 4 4 
4 16, 18.4,4,4,4,4,4, 13, 8,4.4 4 4 4 î’î’ 
S820 DATA 4,4,4,4,4,5,î,1044 4 45, 

.10,6,?,9,4,4,4,4,4;6:i;9,iV4 4 4 ’ ’ 
5830 DATA 4,4,4,13,1,10,4,4,4 4 ’ 4 ’s 7 10 

5840 DATA 4,4,4,4,4 ,4 44457 10 444 

.4,4,4,4,4, 6 ,7,9,4,4,4, 4 , 4 , 4,4 4 4 * 

s f = HVâV - 4 - 4 ' 4 - 4 -®- 7 -^- 4 .’ 4 . 4 . 4 . 4 

AflAn’ 4 ’ 4,4 ’ 4,4 ’ 6,7 ' 9 > 4 » 4 » 4 » 4 » 4 » 4 » 4 

5860 DATA 4,4,4,4,4,5,7,10,4,4 44451 
â87D 6 ni;A'f'f' 4 ' 4 - 4 ’ 6:7 ^' ; ' 4 . 4 " 4 " 4 

5870 DATA 4 ,4,4,13,7,10,4,4,4,4,4 13 1 1 

°’ 4 ’ 4 ’ 4 ’ 4 ’ 6 » 1 » 12 ,4,4,4,4,4, 6 ,7, 12 4 4 4 
S880 DATA 4,4,4,4,4,4,4,4.4 4 4 4444 

4,4,4,4,4,4,4,4,4 4 4 4 4 4 4 44 ’ ’ ’ ’ 

A Q a°a TA 4 » 4 » 4 * 4 » 4 » 4 »4,4’4)4’4J4, 4 ,4, 4 
S900 DATA 4,4,4, 4,4 4 4 4 4 444 4 
4 » 4 1 4,4,4,4,4,4,4,4,4, 4 , 4 , 4 , 4'4 ’ 4 ’ 
J 9 ]°/i D î TA 4 , 4 ’ 4 ' 4 ' 4 ' 4 » 4 ' 4 » 4 . 4 , , 4, , 4,4 4 4 

4 ,4,4,4,4,4,4,4,4,4,4,4,4;4;4;4;4' 
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, /SM PC 

SUPER PARCOURS 

> Course automobile ou rallye, cette partie d’arcade 

profite surtout d’un parcours 

varié et difficile à vaincre. 

La route défile de haut en 

» bas et faites attention aux obstacles 

120 LL$="C0R6F4G4L6H4E4" 

470 DATA 285,67,295,63,305,67,295,71,295 

l 130 KEY OFF : SCREEN l,l:COLOR 0,0:CLS 

,79,295,87,295,95,0,0 

140 LINE (0,0)-(320,120) , 3 , BF 

480 LOCATE 17,8:PRINT "1 - COMMENCER A J 

150 PSET(0,121) , 3:DRAW"C3D72R319U72 ,, 

OUER" 

160 FOR 1=5 TO 305 STEP 20 

490 LOCATE 19,8:PRINT “2 - REGLES DU JEU 

170 FOR J=10 TO 100 STEP 8 

•• 

180 PSET( I, J ) ,0 : DRAW LL$ 

500 LOCATE 21,8:PRINT "3 - CONSEILS POUR 

190 IF 1=305 THEN 210 

RAJOUTER" 

200 PSET(1+10,J+4),0:DRAW LL$ 

510 LOCATE 22,12:PRINT "DES QUESTIONS" 

210 NEXT J : NEXT I 

520 PART=0 

220 RESTORE 310 

530 K$=INKEY$ 

230 READ Y , X 

540 KK=KK+1 

240 IF X=0 THEN 470 

550 IF K$="1"THEN 980 

250 T=6 : FOR I=X TO X+6 

560 IF K$="2"THEN 600 

260 LINE ( Y , I ) - {Y+T , I),2 

570 IF K$="3"THEN 710 

270 IF I <X+3 THEN T=T+2 : Y=Y-1 : GOTO 290 

580 GOTO 530 

280 IF I >X+2 THEN T=T-2:Y=Y+1 

590 REM *********************** 

290 NEXT I : GOTO 230 

600 REM ** REGLES ** 

300 REM - SUPER - 

610 REM *********************** 

310 DATA 85,19,75,15,65,19,65,27,75,31,8 

620 GOSUB 940 

5,35,85,43,75,47,65,43 

630 LOCATE 18,3:PRINT "Pour gagner, il f 

320 DATA 105,19,105,27,105,35,105,43,115 

aut que vous reliez" 

,47,125,43,125,35,125 

640 LOCATE 19,2:PRINT "en rouge le haut 

330 DATA 27,125,19,155,31,165,27,165,19, 

et le bas, pour cela" 

155,15,145,19,145,27 

650 LOCATE 20,2:PRINT "vous répondez à d 

340 DATA 145,35,145,43,205,19,195,15,185 

es questions pré-" 

,19,185,27,195,31,185 

660 LOCATE 21,2:PRINT "cises. Sachez, en 

350 DATA 35,185,43,195,47,205,43,235,31, 

fin que l'on vous" 

245,27,245,19,235,15 

670 LOCATE 22,2:PRINT "donne la première 

360 DATA 225,19,225,27,225,35,225,43,235 

lettre." 

,39,245,43 

680 K$=INKEY$ : IF K$ = ""THEN 680 

370 REM - PARCOURT - 

690 GOSUB 940:GOTO 480 

380 DATA 15,79,25,75,25,67,15,63,5,67,5, 

700 REM *********************** 

75,5,83,5,91,45,91,45 

710 REM ** CONSEILS ** 

390 DATA 83,55,79,45,75,45,67,55,63,65,6 

720 REM *********************** 

7,65,75,65,83,65 

730 GOSUB 940 

400 DATA 91,85,91,85,83,85,75,85,67,95,6 

740 LOCATE 17,3:PRINT "Ce jeu comporte d 

3,105,67,105,75 

éjà 182 questions," 

410 DATA 95,79,95,87,105,91,145,67,135,6 

750 LOCATE 18,2:PRINT "mais vous pouvez 

3,125,67,125,75 

bien-sûr en rajouter." 

420 DATA 125,83,125,91,135,95,145,91,165 

760 LOCATE 20,2:PRINT "ATTENTION: Il fau 

,67,165,75,165 

t que toutes les let-" 

430 DATA 83,165,91,175,95,185,91,185,83, 

770 LOCATE 21,2:PRINT "très aient le mêm 

185,75,185,67 

e nombre de questions" 

440 DATA 175,63,205,67,205,75,205,83,205 

780 K$=INKEY$:IF K$=""THEN 780 

,91,215,95,225 

790 GOSUB 940 

450 DATA 91,225,83,225,75,225,67,245,91, 

800 LOCATE 17,3:PRINT "N'oubliez pas de 

245,83,245,75 

réctifier les lignes" 

460 DATA 245,67,255,63,265,67,265,75,255 

810 LOCATE 18,2:PRINT "suivantes:" 

,79,255,87,265,91 

820 LOCATE 20,2:PRINT "2510 Ul=(PKL-65)* 
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7" 

830 LOCATE 23,2:PRINT "2550 U2=INT(RND(6 
) * 7 ) +1 " 

840 PSET{144,160),2:DRAW"R7" 

850 PSET(160,184),2:DRAW"R7" 

860 PSET(147,161):DRAW"C2D3R64F12G12L47U 
3" 

870 LOCATE 21,30 :PRINT"Nombre de" 

880 LOCATE 22,30:PRINT"questions" 

890 LOCATE 23,30 :PRINT"par lettre" 

900 K$=INKEY$:IF K$=""THEN 900 
910 GOSUB 940 

920 LINE (160,184)-(215 f 188), 0, BF 
930 GOTO 480 

940 FOR 1=17 TO 23:LOCATE 1,2 
950 PRINT STRINGS(38,0)îNEXT 
960 RETURN 

970 REM *********************** 

980 REM ** JEU ** 

990 REM *********************** 

1000 RANDOMIZE KK 

1010 DIM TT(90):DIM DR$(90) 

1020 DIM T(20,20): DIM P$(15) 

1030 GOSUB 4180 
1040 KEY OFF 
1050 SCREEN 1,1 
1060 COLOR 0,1 

1070 REM *********************** 

1080 REM ** DECORS ** 

1090 REM *********************** 

1100 REM - COTE ROUGE - 

1110 CLS 

1120 LINE (10,20)-(170,120),3,BF 

1130 LINE (40,120)-(140,130),3,BF 

1140 LINE (20,10)-(160,19),2,BF 

1150 K=39:K1=41:K2=101 

1160 FOR 1=20 TO 29 

1170 LINE (K1,I)-(K1+K,I),2 

1180 LINE (K2,I)-(K2+K,I),2 

1190 K1=K1+1:K2=K2+1:K=K-2:NEXT I 

1200 M1=20:M2=20:K1=81 

1210 FOR 1=121 TO 130 

1220 LINE (20,1)-(21+M1,I),2 

1230 LINE (Kl,I)-(K1+M2,I),2 

1240 LINE (160-Ml,I)-(160,I),2 

1250 M1=M1+1:M2=M2+2:K1=K1-1:NEXT 

1260 LINE (20,131)-(160,140),2,BF 

1270 REM - COTE BLEU - 

1280 LINE (0,20)-(10,120),1,BF 

1290 Ml=10:M2=l 

1300 FOR 1=20 TO 120 

1310 LINE (10,I)-(10+M1,I),1 

1320 LINE (171-Ml,I)-(171,1) ,1 

1330 IF M1=0 THEN M2=2:GOTO 1350 

1340 IF Ml=10 THEN M2=l 

1350 IF M2=l THEN M1=M1-1 

1360 IF M2=2 THEN M1=M1+1 

1370 NEXT I 

1380 LINE (170,20)-(180,120),1,BF 

1390 REM - TRACE NOIR - 

1400 FOR 1=20 TO 120 STEP 20 
1410 PSET(21,1),0 :DRAW'C0R19 " 

1420 PSET(81,I),0 :DRAW"C0R19" 

1430 PSET(141,I) ,0 :DRAW"C0R19" 


1440 NEXT 

1450 FOR 1-30 TO 130 STEP 20 
1460 PSET(51,I) ,0:DRAW"C0R19" 

1470 PSET(111,I),0:DRAW"C0R19" 

1480 NEXT 

1490 PSET(21,20),3:FOR 1=1 TO 5 

1500 DRAW'COGIOFIO":NEXT 

1510 PSET(41,20),3 : FOR 1 = 1 TO 5 

1520 DRAW'COFIOGIO":NEXT 

1530 PSET(81,20),3:FOR 1=1 TO 5 

1540 DRAW'COGIOFIO":NEXT 

1550 PSET(101,20),3:FOR 1=1 TO 5 

1560 DRAW'COFIOGIO":NEXT 

1570 PSET(141,20),3:FOR 1=1 TO 5 

1580 DRAW'COGIOFIO":NEXT 

1590 PSET(161,20),3:FOR 1=1 TO 5 

1600 DRAW'COFIOGIO":NEXT 

1610 PSET(41,120),0:DRAW'FIO" 

1620 PSET(81,120),0:DRÀW"G10" 

1630 PSET(101,120),0:DRAW"F10" 

1640 PSET(141,120),0:DRAW"G10" 

1650 IF PART>0 THEN 1800 

1660 REM - CADRES - 

1670 PSET(200,10),3 

1680 DRAW"C3R99D10R10D90L10D10" 

1690 DRAW"L10OUI0L10U90R1OUI0" 

1700 PSET(20,147),3 

1710 DRAW"C3R279D10R10D20L10D10" 

1720 DRAW"L279U10L10U20R1OUI0" 

1730 REM - DESSIN BOMBE - 

1740 CIRCLE (300,132),10,1 
1750 DRAW"PI,1" 

1760 LINE (287,130)-(289,134),1,BF 
1770 LINE (190,132)-(286,132),3 
1780 REM ******************** 

1790 REM ** MISE EN PLACE ** 

1800 REM ** DES LETTRES ET * * 

1810 REM ** MEMORISATION ** 

1820 REM ** DE CELLES-CI ** 

1830 REM ******************** 

1840 FOR 1=2.7 TO 9.7 

1850 FOR J=2.8 TO 14.8 STEP 3 

1860 T(J,I)=0 

1870 NEXT J:NEXT I 

1880 FOR 1=60 TO 90 

1890 TT(I)=0:NEXT I 

1900 LO=28:LL=1 

1910 LL=LL+1: FOR 1=27 TO 107 STEP 20 

1920 LE=INT(RND(4)*26)+65 

1930 IF TT(LE)=1 THEN 1920 ELSE TT(LE)=1 

1940 T(LO/10,1/10)=LE 

1950 GOSUB 2060 

1960 PSET(LO,I): DRAW "C0"+DR$(LE) 

1970 NEXT I:LO=LO+30 

1980 IF LL=4 THEN 2150 

1990 FOR 1=37 TO 117 STEP 20 

2000 LE=INT(RND(4)*26)+65 

2010 IF TT(LE)=1 THEN 2000 ELSE TT(LE)=1 

2020 T(LO/10,1/10)=LE 

2030 GOSUB 2060 

2040 PSET(LO,I):DRAW "C0"+DR$(LE) 

2050 NEXT I :LO=LO+30:GOTO 1910 
2060 Hl=LO-7 
2070 H2=I-6 
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2080 H3=20: FOR J=H2 TO H2 + 8 

2710 REM ** REPONSE ** 

2090 LINE (H1,J)-(H1+H3, J) , 3 

2720 REM ******************* 

2100 H1=H1-1:H3=H3+2 îNEXT J 

2730 P$="":PP=1:K=189 

2110 FOR J=H2+9 TO H2+18 

2740 LOCATE 7,28:PRINT "REPONSE" 

2120 LINE (H1,J) -(H1+H3, J) , 3 

2750 LOCATE 9,26:PRINT ">"; 

2130 H1=H1+1:H3=H3-2:NEXT J :RETURN 

2760 P$(PP)=INKEY$ 

2140 REM *********************** 

2770 GOSUB 2890 

2150 REM ** CHOIX LETTRE ** 

2780 IF P$(PP)=""THEN 2760 

2160 REM *********************** 

2790 IF ASC(P$(PP))<65 OR ASC(P$(PP))>90 

2170 FOR 1=4 TO 13 

THEN 2830 

2180 LOCATE 1,26:PRINT STRINGS(13,0) 

2800 PRINT PS(PP); 

2190 NEXT I 

2810 IF PP>=12 THEN 2830 

2200 FOR 1=20 TO 23:LOCATE 1,4 

2820 PP=PP+1:GOTO 2760 

2210 PRINT STRINGS(34,0):NEXT 

2830 FOR 1=1 TO PP-1 

2220 M$=INKEY$:KK=KK+1 

2840 P$=P$+P$(I):NEXT I 

2230 IF M$=""THEN 2250 

2850 LINE (190,132)-(286,132),3 

2240 GOTO 2220 

2860 IF P$=D$ THEN 2970 

2250 RANDOMIZE KK 

2870 GOTO 3430 

2260 LOCATE 5,27 

2880 REM ******************* 

2270 PRINT "DONNEZ MOI" 

2890 REM ** TEMPS ** 

2280 LOCATE 7,27 

2900 REM ******************* 

2290 PRINT "UNE LETTRE" 

2910 K=K+1 

2300 LOCATE 9,27 

2920 IF K=284 THEN 3340 

2310 PRINT "DE VOTRE" 

2930 PSET(K,132),0 :DRAW"C0R1C2R2" 

2320 LOCATE 11,27 

2940 FOR 1=1 TO 700:NEXT 

2330 PRINT "CHOIX ->":KK=-1000 

2950 RETURN 

2340 K$=INKEY$ 

2960 REM ******************* 

2350 KK=KK+1:IF K$=""THEN 2340 

2970 REM ** BONNE REPONSE ** 

2360 RANDOMIZE KK 

2980 REM ******************* 

2370 LOCATE 11,36:PRINT K$ 

2990 Hl=XX-6 

2380 FOR 1=2.7 TO 14.7 STEP 3 

3000 H2=YY-6 

2390 FOR J=2.7 TO 11.7 STEP 1 

3010 H3=20:T(XX/10,YY/10)=1 

2400 IF T(I,J)=ASC(K$) THEN PKL=ASC(K$): 

3020 FOR I=H2 TO H2+8 

XX=I*10:YY=J*10:LKL=1 

3030 LINE(H1,I)-(H1+H3,I),2 

2410 NEXT J:NEXT I 

3040 H1=H1-1:H3=H3+2:NEXT I 

2420 IF LKL=1 THEN LKL=0:GOTO 2450 

3050 FOR I=H2+9 TO H2+18 

2430 LOCATE 11,36:PRINT " " 

3060 LINE(H1,I)-(H1+H3,I),2 

2440 GOTO 2340 

3070 H1=H1+1:H3=H3-2:NEXT I 

2450 PSET(XX+1,YY):DRAW"C2"+DR$(ASC(K$)) 

3080 REM ********************** 

2460 T(I,J)=0 

3090 REM * VERIF SI R. GAGNE * 

2470 REM ******************* 

3100 REM ********************** 

2480 REM ** QUESTIONS ** 

3110 FOR VR=1 TO 4 

2490 REM ******************* 

3120 FF=1:F3=l 

2500 RESTORE 4480 

3130 FOR 1=97 TO 27 STEP -10 

2510 Ul=(PKL-65)*7 

3140 FOR J=2.8 TO 14.8 STEP 3 

2520 FOR 1=1 TO U1 

3150 IF T(J,1/10)=1 THEN 3170 ELSE 3270 

2530 READ C$,D$ 

3160 REM 

2540 NEXT I 

3170 IF T(J+3,(1+10)/10)=FF+1 THEN T(J,I 

2550 U2=INT(RND(6)*7)+1 

/10)=FF+1 

2560 FOR 1=1 TO U2 

3180 IF T(J+3,(1+10)/10)=FF THEN IF J=5. 

2570 READ C$,D$ 

8 OR J=ll.8 THEN T(J,1/10)=FF+1 

2580 NEXT I 

3190 IF T(J-3,(I+10)/10)=FF+1 THEN T(J,I 

2590 FOR 1=4 TO 13 

/10)=FF+1 

2600 LOCATE 1,26:PRINT STRINGS(13,0) 

3200 IF T(J-3,(I+10)/10)=FF THEN IF J=5. 

2610 NEXT I 

8 OR J=ll.8 THEN T(J,1/10)=FF+1 

2620 LOCATE 20,5 

3210 IF T(J-3,(1-10)/10)=FF+1 THEN T(J,I 

2630 PRINT MID$(C$,1,33) 

/10)=FF+1 

2640 LOCATE 21,4 

3220 IF T(J-3,(I-10>/10)=FF+2 THEN T(J,I 

2650 PRINT MID$(C$,34,34) 

/10)=FF+1 

2660 LOCATE 22,4 

3230 IF T(J+3,(1-10)/10)=FF+2 THEN T(J,I 

2670 PRINT MID$(C$,68,34) 

/10)=FF+1 

2680 LOCATE 23,4 

3240 IF T(J+3,(1-10)/10)=FF+1 THEN T(J,I 

2690 PRINT MIDS(C$,102,34) 

/10)=FF+1 

2700 REM ******************* 

3250 IF T(J,(1+20)/10)=FF THEN T(J,I/10) 
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= FF+1 

3260 IF T(J,1/10)=5 THEN PART=1 
3270 F3=F3+1 

3280 IF F3=ll THEN FF=FF+1:F3=1 
3290 NEXT J:NEXT I:NEXT VR 
3300 IF PART=1 THEN 3840 
3310 GOTO 2150 

3320 REM ******************* 

3330 REM ** MAUVAISE REP. ** 

3340 REM ******************* 

3350 FOR 1=4 TO 13 

3360 LOCATE I,26:PRINT STRINGS(13,0) 
3370 NEXT I 

3380 LOCATE 4,28:PRINT "HELAS..." 

3390 LOCATE 7,27:PRINT "VOUS N’AVEZ" 
3400 LOCATE 8,26:PRINT "PAS ETE ASSEZ" 
3410 LOCATE 9,29:PRINT "RAPIDE" 

3420 GOTO 3490 
3430 FOR 1=4 TO 13 

3440 LOCATE I,26:PRINT STRINGS(13,0) 
3450 NEXT I 

3460 LOCATE 4,28:PRINT "HELAS..." 

3470 LOCATE 7,27:PRINT "VOUS AVEZ" 

3480 LOCATE 8,26:PRINT "MAL REPONDU" 
3490 LOCATE 11,27:PRINT "LA REPONSE" 
3500 LOCATE 12,27:PRINT "ETAIT:" 

3510 LOCATE 13,27:PRINT D$ 

3520 FOR 1=1 TO 4000:NEXT I 
3530 H4=XX-6 
3540 H5=YY-6 

3550 H6=20:T(XX/10,YY/10)=11 
3560 FOR I=H5 TO H5 + 8 
3570 LINE(H4,I)-(H4+H6,I),1 
3580 H4=H4-l:H6=H6+2:NEXT I 
3590 FOR I=H5+9 TO H5 + 18 
3600 LINE(H4,I)-(H4+H6,I), 1 
3610 H4=H4+l:H6=H6-2:NEXT I 
3620 LINE (190,132)-(286,132),3 
3630 REM *********************** 

3640 REM ** VERIF SI B. GAGNE ** 

3650 REM *********************** 

3660 FOR VB=1 TO 4 

3670 LOCATE 23,1 :FF=10:F3 = l 

3680 FOR J=2.8 TO 14.8 STEP 3 

3690 FOR 1=2.7 TO 11.7 

3700 IF T(J,I)=11 THEN 3710 ELSE 3780 

3710 IF T( J + 3,1-1)=FF+2 THEN T(J,I)=FF+1 

3720 IF T ( J + 3,1 + 1)=FF+2 THEN T(J,I)=FF+1 

3730 IF T(J-3,1-1)=FF THEN T(J,I)=FF+1 

3740 IF T(J-3,1+1)=FF THEN T(J,I)=FF+1 

3750 IF T( J,1-2)=FF + 1 THEN T(J,I)=FF+1 

3760 IF T(J,1+2)=FF+1 THEN T(J,I)=FF+1 

3770 IF T ( J,I)=15 THEN PART=2 

3780 F3=F3+1 

3790 IF F3=ll THEN FF=FF+1:F3=1 
3800 NEXT I :NEXT J:NEXT VB 
3810 IF PÀRT=2 THEN 3840 
3820 GOTO 2150 

3830 REM ******************* 

3840 REM ** FIN PARTIE ** 

3850 REM ******************* 

3860 FOR 1=4 TO 13 

3870 LOCATE I,26:PRINT STRINGS(13,0) 

3880 NEXT I 


3890 IF PART=1 THEN 3910 

3900 IF PART=2 THEN 3970 

3910 LOCATE 4,27 

3920 PRINT "BRAVO 

3930 LOCATE 7,27 

3940 PRINT "VOUS AVEZ" 

3950 LOCATE 9,29 

3960 PRINT "GAGNE":GOTO 4030 

3970 LOCATE 4,27 

3980 PRINT "DOMMAGE !i!" 


3990 LOCATE 7,27 
4000 PRINT "VOUS AVEZ" 

4010 LOCATE 9,29 
4020 PRINT "PERDU" 

4030 LOCATE 12,27 
4040 PRINT "UNE AUTRE" 

4050 LOCATE 13,28 

4060 PRINT "PARTIE ?":PART=0 

4070 K$ = INKEY$: IF K$ = ""THEN 4070 

4080 IF K$="O" THEN 1800 

4090 IF K$="N" THEN 4110 

4100 GOTO 4070 

4110 SCREEN 0 :CLS 

4120 Tl = l:T2 = 4: FOR 1 = 1 TO 21 STEP 2 
4130 COLOR Tl:LOCATE I,T2 
4140 PRINT "A BIENTOT..." 

4150 T1=T1+1:T2=T2+2 
4160 IF Tl=8 THEN Tl=9 
4170 NEXT I : END 

4180 REM ********************** 


4190 REM * DESSIN DES LETTRES * 

4200 REM ********************** 

4210 DRS(65)="BR2F2D4U2L4D2U4E2" 

4220 DR$(66)="R3F1D1G1F1D1G1L3U3R3L3U3" 
4230 DR$(67)="BD1BR4H1L1G2D2F2R1E1" 

4240 DR$(68)="R3F1D4G1L3U6" 

4250 DR$(69)="R4L4D3R3L3D3R4" 

4260 DR$(70)="R4L4D3R3L3D3" 

4270 DR$(71)="BR4BD1H1L1G2D2F2R1E1U2L1" 
4280 DR$(72)="D6U3R4U3D6" 

4290 DRS(73)="BR1R2L1D6L1R2" 

4300 DR$(74)="BR4D5G1L2H1U1" 

4310 DR$(75)="D6U3R2E2U1D1G2F2D1" 

4320 DR$(76)="D6R4" 

4330 DR$(77)="D6U5R1D1R1D1U1R1U1R1U1D6" 
4340 DRS(78)="D6U5R1D1F2D1R1D1U6" 

4350 DR$(79)="BR1R2F1D4G1L2H1U4" 

4360 DRS(80)="R3F1D1G1L3D3U6" 

4370 DR$(81)="BR1R2F1D4G1F1H2D1L1H1U4" 
4380 DR$(82)="R3F1D1G1D1F1D1U1H1U1L3D3U6 


4390 DR$(83)="BR4BD1H1L2G1F4G1L2H1" 

4400 DR$(84)="R4L2D6" 

4410 DR$(85)="D5F1R2E1U5" 

4420 DRS(86)="D4F2E2U4" 

4430 DRS(87)="D6E1U1R1U1D1R1D1R1U5D6" 
4440 DR$(88)="D1F4D1BL4U1E4U1" 

4450 DR$(89)="D1F2E2U1D1G2D3" 

4460 DR$(90)="R4D1G4D1R4" 

4470 RETURN 

4480 DATA "<A> Tout ce qui sert à attaqu 
er ou à se défendre.","ARME" 


4490 DATA "Ce A est une personne qui sai 
t lire et écrire.","ALPHABETE" 
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4500 DATA "A pour renoncer solennellemen 
t à une religion, à une opinion.","ABJUR 
ER" 

4510 DATA "Ce A a une saveur rude et dés 
a- gréable.","AMER" 

4520 DATA "<A> Joindre deux choses ensem 
ble,metrre deux à deux"ACCOUPLER" 

4530 DATA "Ce A est un alliage de fer et 
de carbone"ACIER" 

4540 DATA "Ce A est un recueil de cartes 
géographiques.","ATLAS" 

4550 DATA "Ce B est un véhicule à 2 roue 
s d'égal diamètre"BICYCLETTE" 

4560 DATA "Ce B est la femelle du cerf e 
t des cervidés"BICHE" 

4570 DATA "Ce B est une rade, un petit g 
olfe","BAIE" 

4580 DATA "<B> Partie initiale du tube 
digestif de 1'homme"BOUCHE" 

4590 DATA "B pour les poils du menton et 
desjoues.","BARBE" 

4600 DATA "Ce B est un gros serpent d'Am 
é- rique tropicale mesurant jusqu'à 4 
mètres.","BOA" 

4610 DATA "Ce B est une petite colline." 

,"BUTTE" 

4620 DATA "Ce C est un oiseau voisin de 
la perdrix, migrateur.","CAILLE" 

4630 DATA "Ce C est un siège à dossier, 
sansbras.","CHAISE" 

4640 DATA "Ce C est une vallée étroite e 
t profonde en gorge.","CANYON" 

4650 DATA "Ce C est le tube d'une arme à 
feu.","CANON" 

4660 DATA "Ce C est une suite de sons mo 
du- lés, émis par la voix"CHANT" 

4670 DATA "Ce C est une spécialité culin 
aired'Afrique du nord.","COUSCOUS" 

4680 DATA "Ce C est la pièce ou l'on pré 
pareles mets"CUISINE" 

4690 DATA "D pour la dernière partie d'u 
n repas.","DESSERT" 

4700 DATA "D pour une somme que l'on doi 
t.","DETTE" 

4710 DATA "Ce D est un acte par lequel o 
n sedémet d'une fonction, d'un emploi.", 
"DEMISSION" 

4720 DATA "<D> Contredire quelqu'un en a 
f- firmant qu'il dit des choses fa 

usses.","DEMENTIR" 

4730 DATA "D est une figure à dix angles 
et dix côtes"DECAGONE" 

4740 DATA "Ce D est le créateur de l’uni 
vers","DIEU" 

4750 DATA "Ce D est un événement tragiqu 
e ouviolent, catastrophe, tragédie.","DR 
AME" 

4760 DATA "E pour l'établissement où l'o 
n enseigne.","ECOLE" 

4770 DATA "Ce E est la monnaie de compte 
de la C.E.E.","ECU" 

4780 DATA "Ce E est un insuccès, un manq 
ue de réussite.","ECHEC" 

4790 DATA "Ce E est la partie superficie 


lie et protectrice des troncs, des br 
anches.","ECORCE" 

4800 DATA "Ce E est un liquide coloré do 
nt on se sert pour écrire.","ENCRE" 

4810 DATA "<E> Passer du dehors au dedan 
s, pénétrer.","ENTRER" 

4820 DATA "<E> Faute commise en se tromp 
ant,méprise.","ERREUR" 

4830 DATA "Ce F est un cours d'eau qui a 
bou-tit à la mer.","FLEUVE" 

4840 DATA "<F> Percer, creuser à l'aide 
d'uninstrument mécanique.","FORER" 

4850 DATA "Ce F est une note détaillée d 
e marchandises vendues, de services ex 
écutés","FACTURE" 

4860 DATA "<F> Qui manque de vigueur, de 
force physique ou morale.","FAIBLE" 
4870 DATA "F pour un faisceau de menu bo 
is, de branchages.","FAGOT" 

4880 DATA "Ce F a perdu la raison"FOU 

•I 

4890 DATA "Ce F est une arme à feu porta 
tivede chasse ou de guerre.","FUSIL" 

4900 DATA "Ce G est une action, une paro 
le maladroite.","GAFFE" 

4910 DATA "Ce G est un enfant mâle.","GA 
RCON" 

4920 DATA "Ce G est une garantie, une as 
su- rance.","GAGE" 

4930 DATA "Ce G est un caillou poli et a 
r- rondi par l'action de la mer.","GALE 

rji n 

4940 DATA "Ce G est un homme bien élevé, 
de bonne companie, galant homme.","GENT 
LEMAN" 

4950 DATA "Ce G est de l'eau congelée pa 
r lefroid.","GLACE" 

4960 DATA "Ce G est une plante qui vit e 
n parasite sur les branches de cer- ta 
in arbes (peuplier,pommier).","GUI" 

4970 DATA "Ce H est un instrument de mus 
iquetriangulaire à cordes.","HARPE" 

4980 DATA "Ce H vaut 3600 secondes soit 
60 minutes.","HEURE" 

4990 DATA "Ce H est la femelle du lièvre 
.","HASE" 

5000 DATA "Ce H est un oiseau de proie 
nocturne.","HIBOU" 

5010 DATA "Ce H est une machine indiquan 
t les divisions du temps.","HORLOGE" 
5020 DATA "H pour l'action de tuer un êt 
re humain.","HOMICIDE" 

5030 DATA "Ce H est une personne qui est 
reçu chez quelqu'un, invité.","HOTE" 
5040 DATA "Ce I est une petite île.","IL 
OT" 

5050 DATA "Ce I est sans mouvement, immo 
bile","INERTE" 

5060 DATA "<I> Contribution éxigée pour 
as- surer le fonctionnement de l'Etat et 
des collectivités locales.","IMPOT" 

5070 DATA "<I> Cabine oùl'électeur prépa 
re son bulletin de vote.","ISOLOIR" 

5080 DATA "Ce I est une voie à une seule 
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entrée.","IMPASSE" 

5090 DATA "Ce I est sans limites." "INFI 
NI" 

5100 DATA "Ce I a des connaissances éten 
dues","INSTRUIT" 

5110 DATA "Ce J est un avion à réaction. 

, "JET" 

5120 DATA "Ce J est une automobile tout 
ter-rain.","JEEP" 

5130 DATA "Ce J est un vêtement féminin 
qui enserre la taille et descend ju 

squ'aux jambes. ","JUPE" 

5140 DATA "Ce J est le mâle de l'oie."," 
JARS" 

5150 DATA "<J> Poser à côté d'une autre 
chose.","JUXTAPOSER" 

5160 DATA "Ce J est la couleur du citron 
.","JAUNE" 

5170 DATA "Ce J est un objet destiné à a 
mu- ser un enfant"JOUET" 

5180 DATA "<K> Art martial, d’origine ja 
po- naise, ne faisant appel qu'à des mo 
yens naturels"KARATE" 

5190 DATA "Ce K est la jupe courte des é 
cos-sais.","KILT" 

5200 DATA "Ce K est un tapis d’Orient ti 
ssé.","KILIM" 

5210 DATA "<K> Titre princier turco-mong 
ol.","KHAN" 

5220 DATA "Ce K est une coiffure munie d 
une visière, portée par les mili- ta 
ire de l'armée de terre.","KEPI" 

5230 DATA "Ce K est un condiment Anglais 
, à base de tomates.","KETCHUP" 

5240 DATA "Ce K est un enlèvement d'une 
per-sonne.","KIDNAPPING" 

5250 DATA "Ce L est le meuble sur lequel 
on dort.","LIT" 

5260 DATA "Ce L est le satellite naturel 
de la terre.","LUNE" 

5270 DATA "<L> En musique, indique un mo 
uve-ment ample et large.","LARGO" 

5280 DATA "<L> Qui est conforme à la loi 
.","LEGAL" 

5290 DATA "Ce L un animal à corps de che 
val,avec une corne sur le front.","LICOR 
NE" 

5300 DATA "Ce L est une femme de haut ra 
ng en Angleterre.","LADY" 

5310 DATA "Ce L est désagréable à la vue 
, à 1'esprit"LAID" 

5320 DATA "Ce M est un métal liquide d'u 
n blanc argenté, on l'utilise pour le 
s thermomètre. ", "MERCURE". 

5330 DATA "<M> Liste détaillé des plats 
servis à un repas au restaurant.","M 

ENU" 

5340 DATA "Ce M est un vêtement de bain. 

","MAILLOT" 

5350 DATA "Ce M a une idée fixe, bizarre 
.","MANIAQUE" 

5360 DATA "Ce M est du sexe masculin."," 
MALE" 

5370 DATA "Ce M est un membre d’un ordre 


religieux masculin a voeux solen- ne 
ls.","MOINE" 

5380 DATA "<M> Cesser de vivre, décéder, 
périr.","MOURIR" 

5390 DATA "<N> Personne appartenant à la 


race noire. 


'NEGRE" 


5400 DATA "Ce N n'est ni acide, ni basiq 


ue. 


'NEUTRE 1 


5410 DATA "N pour une personne de très 
petite taille.","NABOT" 

5420 DATA "<N> Voyager sur l'eau ou dans 
lesairs.","NAVIGUER" 

5430 DATA "Ce N est une petite cabane po 
ur le logement d'un chien.","NICHE" 

5440 DATA "Ce N est le contraire de rusé 
fin, malin.","NIAIS" 

5450 DATA "<N> Serrer, lier avec un ou p 
lu- sieurs noeuds.","NOUER" 

5460 DATA "Ce O est le frère du père ou 
de la mère.","ONCLE" 

5470 DATA "<0> Partie cornée qui couvre 
le dessus du bout des doigts.","ONGLE" 
5480 DATA "Ce O est synonyme de d'accord 
c’est entendu"OK" 

5490 DATA "<0> Donner un cadeau, présent 
er quelque chose à quelqu'un.","OFFRIR" 
5500 DATA "<0> Engourdissement douloureu 
x aubout des doigts, causé par le fr 
oid.","ONGLEE" 

5510 DATA "0 pour l'organe de l'ouïe."," 
OREILLE" 

5520 DATA "<0> Partie dure et solide qui 
forme la charpente du corps de 1' ho 
mme et des animaux vertébrés.","OS" 

5530 DATA "<P> Faire un trou, perforer." 

,"PERCER" 

5540 DATA "P pour un jeu de boules origi 
naire de Provence.","PETANQUE" 

5550 DATA "P pour l’intérieur, le creux 
de la main.","PAUME" 

5560 DATA "Ce P subit sans réagir, manqu 
d'énergie, apathique.","PASSIF" 

5570 DATA "Ce P est un instrument pour r 
e- produire mécaniquement un dessin."," 
PANTOGRAPHE" 

5580 DATA "P pour un côté d'une pièce de 


monnaie. 


PILE" 


5590 DATA "Ce P est un appareil pour asp 
i- rer, refouler ou comprimer les fl 
uides.","POMPE" 

5600 DATA "Ce Q est un groupe de quatre 
personnes.","QUATUOR" 

5610 DATA "Ce Q est une demande faite à 
quelqu'un pour apprendre quelque ch 


ose. 


•QUESTION" 


5620 DATA "Ce Q est une série de cinq ca 
rtesse suivant.","QUINTE" 

5630 DATA "Ce Q est le résultat d'une di 
vi- sion.","QUOTIENT" 

5640 DATA "Ce Q est une méprise qui fait 
prendre une chose pour une autre."," 
QUIPROQUO" 

5650 DATA "<Q> Rive d'un port aménagée e 
n terre-plein pour la circulation de 
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s véhicules.","QUAI" 

5660 DATA "Ce Q est la quatrième partie 
d' une unité"QUART" 

5670 DATA "<R> Traiter un produit pétrol 
ier pour le transformer,le fractionne ro 
u le purifier"RAFFINER" 

5680 DATA "Ce R est une relation écrite 
ou orale de faits réels ou imagi- na 
ires.","RECIT" 

5690 DATA "Ce R est ce qu'on donne pour 
la libération d'un captif.","RANÇON" 
5700 DATA "<R> Qui refuse de se soumettr 
e à l'autorité d'un gouvernement ou d' 
une personne.","REBELLE" 

5710 DATA "<R> Couper ras le poil.","RAS 
ER" 

5720 DATA "<R> Passage de l'état de somm 
eil à l'état de veille"REVEIL" 

5730 DATA "Ce R est une personne qui est 
adroite, fine, maline.","RUSE" 

5740 DATA "Ce S est' une information impo 
r- tante ou sensationnelle donnée en ex 
clusivité par une agence de presse." 

,"SCOOP" 

5750 DATA "<S> Jeu d'origine Américaine 
con-sistant à former des mots et à lespl 
acer sur une grille spéciale.","SCRABBLE 

II 

5760 DATA "<S> Corps qui gravite autour 
d' une planète"SATELLITE" 

5770 DATA "Ce S est une préparation plus 
ou moins liquide servie avec certain al 
iments.","SAUCE" 

5780 DATA "<S>'Prendre vivement et avec 
vi- gueur.","SAISIR" 

5790 DATA "Ce S est un long patin pour g 
lis-ser sur la neige ou sur l'eau.","SKI 

M 

5800 DATA "S pour l’étoile autour de laq 
uel-le gravite la terre.","SOLEIL" 

5810 DATA "Ce T est 1'extrémité superieu 
r ducorps de 1'homme"TETE" 

5820 DATA "<T> Lieu où l'on représente d 
es ouvrages dramatique"THEATRE" 

5830 DATA "Ce T est très attaché à ses i 
déeset insensible aux arguments.","TETU" 
5840 DATA "Ce T est un trou crusé dans 1 
a terre par certain animaux comme lela 
pin.","TERRIER" 

5850 DATA "Ce T est un grand tonneau."," 
TONNE" 

5860 DATA "T pour un groupe de trois enf 
antsnés d'un même accouchement.","TRIPLE 
S" 

5870 DATA "Ce T est la partie d'un arbre 
depuis la naissance des racines ju 
squ'à celle des branches"TRONC" 

5880 DATA "Ce U est la première page d'u 
n journal.","UNE" 

5890 DATA "Les <U> et coutumes"US" 

5900 DATA "<U> qui rend service.","UTILE 

il 

5910 DATA "Ce U est un système ou un pro 
jet irréalisable"UTOPIE" 


5920 DATA "<U> Détérioration, que produi 
t l'usage ou le frottement.","USURE" 

5930 DATA "Ce U est une note de musique. 
","UT" 

5940 DATA "Ce U est le liquide extrait d 
u sang par les reins"URINE" 

5950 DATA "Ce V est une voiture fermé po 
ur le transport des chevaux.","VAN" 

5960 DATA "Ce V est le petit de la vache 
.","VEAU" 

5970 DATA "Ce V est une personne qui n'a 
pasde domicile ni de profession.","VAGA 
BOND" 

5980 DATA "Ce V est une personne qui dét 
ruitles choses de valeur.","VANDALE" 

5990 DATA "<V> Pousser, croître, en pari 
ant des plantes.","VEGETER" 

6000 DATA "V pour une personne dont la f 
emmeest morte.","VEUF" 

6010 DATA "<V> Artiste connu a qui on do 
nne des grands rôles au cinéma"VEDETT 
E" 

6020 DATA "Ce W est 1'unité de mesure de 
puissance.","WATT" 

6030 DATA "Ce W est un film qui raconte 
les aventures des cow-boys.","WESTERN" 
6040 DATA "<W> Grand cerf d'Amérique du 
nordet d'Asie"WAPITI" 

6050 DATA "Ce W permet d'écouter la musi 
que tout en marchant.","WALKMAN" 

6060 DATA "Ce W est le conducteur d'une 
lo- comotive ou d'un tramway élec- tr 
iques.","WATTMAN" 

6070 DATA "Ce W est un véhicule ferrovia 
ire.","WAGON" 

6080 DATA "Ce W est l’unité monétaire de 
la Corée.","WON" 

6090 DATA "X pour un gaz inerte en quant 
ité infime dans 1'air.","XENON" 

6100 DATA "Ce X est le nom commercial du 
xylène brut. " , "XYL.OL" 

6110 DATA "Ce X est un hydrocarbure benz 
é- nique.","XYLENE" 

6120 DATA "Ce X aime les étrangers.",”XE 
NOPHILE" 

6130 DATA "Ce X est un vin très estimé, 
ré- colté à Xérès.","XERES" 

6140 DATA "Ce X est un graveur sur bois. 

","XYLOGRAPHE" 

6150 DATA "X pour un dialecte chinois pa 
rlé an Hou-nan.","XIANG" 

6160 DATA "Ce Y est un navire de plaisan 
ce à voiles ou à moteur.","YATCH" 

6170 DATA "<Y> Nom donné par les sudiste 
s aux nordistes en Amérique.","YANKEE" 
6180 DATA "<Y> Voilier à deux mâts ayant 
1' artimon en arrière de la barre.","YA 
WL" 

6190 DATA "Ce Y est un synonyme du chêne 
vert.","YEUSE" 

6200 DATA "<Y> Unité monétaire japonaise 
.","YEN" 

6210 DATA "Y pour une discipline spiritu 
elleet corporelle qui vise à libérer 1' 
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esprit des contraintes du corps"YOGA" 
6220 DATA "Ce Y est l'unité de mesure an 
glo-saxonne, valant 0,914m.","YARD" 

6230 DATA "<Z> Mammifère d'afrique voisi 
n ducheval, à pelage blanchâtre rayé de 
noir ou de brun. "ZEBRE" 

6240 DATA "Ce Z est une ligne brisé à an 
glesalternativement saillants et re 

ntrants.","ZIGZAG" 

6250 DATA "Ce Z est l'unité monétaire du 


Zaïre.","ZAÏRE" 

6260 DATA "Ce Z est le nom ancien du glu 
ten.","ZYMONE" 

6270 DATA "Ce Z est un métal d’un blanc 
bleuâtre.","ZINC" 

6280 DATA "Ce Z est un mort sorti du tom 
beauet qu'un sorcier met à son service", 
"ZOMBIE" 

6290 DATA "Ce Z est l'os de la pommette. 
","ZYGOMA" 


3615 TUT 

GAGNEZ UNE CONSOLE 
NEC PC ENGINE ET SES 10 
MEILLEURS JEUX SELECTIONNES PAR 
LA REDACTION DE TILT... 

ET AUSSI DES MONTRES TILT, DES 
POCHETTES RANGE-DISQUETTES, 
DES PORTE-CLES... 
JUSQU'AU 22 NOVEMBRE 




THOMSON 


AXANTHES 


Pénétrez dans le labyrinthe infernal de ce château pour en exorciser 
les orces diaboliques qui l’habitent. 

Programmé sur Thomson en basic 1.0, AXANTHES utilise, pour ses décors, 

pas moins de seize couleurs. 

Le listing comporte deux programmes qu’il faut taper et sauver à la suite. 

LISTING N° 1 I 280 F0R 1 = 1 T0 10-READ A, B , C , D : LI ] 


70 REM **************** 

80 REM * A SAUVER PAR * 

90 REM * SAVE”AXAN” * 

100 REM **************** 

105 ’ POUR THOMSON 16 COULEURS 

110 CLS:CLEAR500, ,2 :DEFGRS(0) = 1,3,7, 15,3 

1,63,127,255:DEFGRS(1>=128,192,224,240,2 

48,252,254,255 :BRUN=0 

120 V=7 

130 X=8 

140 Y=0 

150 Z=9 

160 SCREENX,Y,Y 

170 FOR 1=1 T028:READ A,B,C,D:LINE<A,B>- 
<C,D>CHRS(127),X,Y:NEXT 

180 DATA 8,7,9,7,7,8,7,11,7,10,10,10,10, 
8, 10, 11,7, 13, 11, 13,9, 13,9, 17, 13, 7, 17, 11, 
13, 11, 17,7, 14, 13, 14, 17, 14, 15, 17, 15, 17, 13 
, 17, 17,21,7,22,7,20,8,20. 11,20, 10,23, 10, 

23.8.23.11.21.13.24.13.20.14.20.14.20.16 
,20,16,21,15,23,15,21,17,24,17 

190 DATA 26,7,26,11,26,7,30,11,30,7,30,1 
1,27,14,27,14,28,13,31,13,28,15,30,15,31 
,16,31,16,30,17,27,17 

200 FOR 1 = 1 TO 12:READ A,B:PSET(A,B)GRS< 
1),V,Z:NEXT:DATA 7,7,9,9.16,7, 15,8, 14,9, 

13.10.25.14.24.16.25.18.32.14.32.17.31.1 
8 

210 FOR 1 = 1 TO 11:READ A, B : PSET(A,B)GRS( 
1),Z,W:NEXT:DATA 6,7,7,6,12,6,12,10,13,9 
, 15,7,16,6,21, 14,21,16,28, 14,31, 17 
220 FOR 1 = 1 TO 7:READ A, B : PSET < A,B)GRS(1 
),V,Y: NEXT:DATA 10,7, 13,6, 14,7, 17,6,16,9 
,17,10,9,6 

230 FOR 1 = 1 TO 7:READ A, B : PSET(A,B)GRS(1 
) , Y, Z: NEXT:DATA 6,11,9, 11, 12, 11, 16, 11,15 
,10,13,8,12,7 

240 FOR 1 = 1 TO 6:READ A, B : PSET(A,B > GRS <1 
),Y,V:NEXT:DATA 20, 15,20, 17,21, 18,27, 15, 

27.18.28.16 

250 FOR 1 = 1 TO 6:READ A, B: PSETCA,B)GRS<1 
),Z,Y:NEXT:DATA 25,13,24,15,25,17,32,13, 

31.15.32.16 

260 FOR 1 = 1 TO 13:READ A, B, C,D:LINECA, B) 

-(C,D)CHRS(127),V,YiNEXT 

270 DATA 8,6,8,6,8,9,8,9,10,14,10,14,15, 

16.15.16.7.14.7.14.22.6.22.6.22.9.22.9.2 
2,14,24,14,22,16,23,16,22,18,24,18,29,14 

,31,14,29,16,30,16,30,18,28,18 


280 FOR 1=1 TO 10:READ A, B, C, D: LINE(A, B) 
-<C,D>CHRS(127),Z, Y: NEXT 
290 DATA 6,8,6,10,9,8,9,8,8,15,8,17,13,1 
4, 13, 17, 16, 14, 16, 14, 16, 17, 16, 17,21,8,21, 
8,24,8,24,10,27,9,27,10,31,7,31,10 
300 FOR 1=1 T08:READ A,B:PSETCA,B)GRS(0) 
,Z,V:NEXT:DATA 8,14,16,16,23,6,24,7,27,6 
,28,7,29,8,31,6 

310 FOR 1=1 TO 9:READ A,B:PSETCA,B)GRS(0 
),V,Z:NEXT:DATA6, 14,8, 18, 13, 18, 16, 18,21, 
9,23,7,27,7,28,8,29,9 

320 FOR 1=1 TO 3:READ A,B:PSET<A,B)GRS(0 
),Z,Y:NEXT:DATA 6,13,13,13,16,13 
330 FOR 1=1 TO 4:READ A,B:PSET<A,B)GRS(0 
),V,Y: NEXT:DATA 20,7,21,6,26,6,30,6 
340 FOR 1=1 TO 4:READ A,B:PSET(A,B)GRS(0 
),Y,V:NEXT:DATA 11, 14,9, 18, 14,18, 17, 18 
350 FOR 1=1 TO 4:READ A,B:PSETCA,B)GRS<0 
),Y,Z:NEXT:DATA 21,11,24,11,27,11,31,11 
360 IF BRUN>0 THEN RUN”THES 
370 AS=”A0L24T5O4DOMIL36SOL12MIL24SOLAL4 
8SQL24MISOL96LAL48SOL24MISOL72SOL12MIL24 
SOMI”:B$=”L48REL24DOREL48A2MIREAODO”:PLA 
Y AS+BS+AS+BS 

380 T$=” Vous etes Axanthes,un exorc 

iste du Moyen Age Un village vous a enga 
ge pour lever la malédiction qui pese 
sur le chateau dont il dépend.":GOSUB 5 
40 

390 TS=” Un parchemin sur lequel un po 
eme est écrit vous est parvenu.Pour vai 
ncre la malédiction, vous devrez d’abord 
réussir a faire les actions décrites 
dans le poeme.Vous devrez donc dechif 
frer le parchemin.GOSUB 540 
400 T$=” Vous n’aurez que quelques 
minutes pour y arriver,ou pour le r 
ecopier. Appuyez sur ’ENTREE’ pour ecourt 
er cettedureeGOSUB 540 
410 CLS:LOCATEO,0,0:SCREEN3, 15, 15:ATTRB0 
,0 

420 PRINT:PRINT” Trouvez le Franklin d 
'argent, Mettez le sur son pi 

ed d’or, La porte blanche en 

ouvrant. Vous n’aurez plus auc 


420 PRINT: PRINT 
’argent, 
ed d’or, 
ouvrant. 
un tort!” 

430 PR INT: PR INT’ 
clés, 
ouver, 
porte, 
rtent. ” 


Les cinq précieuses 
Vous devrez retr 
Pour ouvrir une 
Car loin elles po 
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Vous le trouverez e 
Le tombeau du die 
Ca vous fera du bi 
Vous en debarasse 

Vous aurez 

Cette mission,bien 
Quand vous aurez de 
Le chateau de M 


440 PRINT:PRINT” 
nf in, 
u Ra, 
en de 
r la.” 

450 PRINT:PRINT” 
réussi 
sur, 
truit : 
ahrur.” 

460 BEEP: FOR 1 = 1 TO 5:. INPUTVAIT 380; 60,” 
” , AS 

470 GOTO 490 
480 NEXT 

490 T$=” Ce poeme est très vieux, pe’ut- 
etre y a-t-il eu des changements avec 1 
e temps?”:GOSUB 540. 

500 T$=” Axanthes,les espoirs de to 
ut un village repose sur .vos freles 
épaulés,seront-elles assez solides po 
ur en supporter le poids ...?”:GOSUB 5 
40 

510 T$=” Bonne chance... 

Et que dieu vous garde...”:GO 

SUB 540 

520 BRUN=1:CLS:¥=10: X=7: Y=0: Z=6:RESTORE: 
GOTO 160 
530 END 

540 CLS:SCREEN1,5,3:FOR 1 = 1 TO LEN(T$): A 
=ASC(MIDS(T$,1,1)):COLORINT(RND*14)+1,0: 
PEINT CHRS(A); :NEXT: PLAY”L96PPPP”:RETURN 


LISTING N° 2 


60 REM ***************** 

70 REM * JEU * 

80 REM * A SAUVER PAR * 

90 REM * SAVE”THES” * 

100 REM **************** 

110 CLEAR2000, ,87:DIM N<52,3), S< 52,3),0( 
52,3),E(52,3),TREC52,3) , OBMAINS(IO),MESS 
(11),OBS(11) 

120 REM * GRAPHISMES * 

130 RESTORE 140:FOR 1 = 0 TO 86 :READ A,B,C 
, D, E, F, G, H: DEFGRS ( I)=A,B,C,D,E,F,G,H: NEX 
T 

140 DATA 0,0,0,1,1,2,4,4,0,64,192,160,16 
0,144,144,136,9,17,33,33,71,121,249,6,13 
6,132,132,194,62,31,224,0 : ’PYRAMIDE 0-3 
150 DATA 0,0,1,1,3,7,7,15,64,192,224,224 
,240,240,248,248,31,63,63,127,127,255,6, 
0,252,252,254,254,255,224,0,0 :’TROU 4-7 
160 DATA 28,34,28,8,12,24,12,24 :'CLE 8 
170 DATA 60,126,126,60,24,24,60,126 :'TR 
OU 9 

180 DATA 0,0,0,0,0,0,96,112,56,28,62,127 
,255,255,127,62 :’FIOLE 10-11 
190 DATA 0,0,5,5,3,4,9,19,0,0,64,64,128, 
64,32,176,53,115,113,123,57,28,7,0,56,15 
6,92,156,56,112,192,0 :’BOURSE 12-15 
200 DATA 16,40,84,170,214,170,84,56 :’DI 
AMANT 16 

210 DATA 2,4,15,27,63,0,0,63,8,125,207,2 
55,31,31,127,255,0,0,128,128,224,224,224 
,224,15,0,0,24,12,102,62,7,255,127,63,31 


,127,127,127,255,240,248,252,250,252,252 
,255,255,7,1,0,0,0,0,0,1,255,191,63,127, 
127,127,127,255,255,255,255,255,255,255, 
255 

220 DATA 225,1,7,7,7,15,15,15,255,255,22 

5.225.224.224.128.128.193.224.248.248.12 
6,126,30,30,255 .-'STATUETTE 17-28 

230 DATA 255,255,0,63,63,0,42,42,255,255 
,0,255,255,0,170,170,255,255,0,252,252,0 
, 168,168,42,42,42,42,42,42,42,42, 170,170 
,170,170,170,170,170,170,168,168,168,168 
,168,168,168,168,42,42,0,63,63,0,255,255 
,170,170,0,255,255,0,255,255,168,168,0,2 
52 

240 DATA 252,0,255,255 :’SOCLE 29-37 
250 DATA 0,0,0,12,18,17,8,8,0,0,0,16,108 
, 129, 0, 0, 0,0,0,4,27,96, 128, 0, 0,0,0,48,72 
,136,16,16,48,64,48,12,2,12,48,64,12,2,1 
2,48,64,48,12,2,48,12,2,12,48,64,48,12,1 
2,48,64,48,12,2,12,48 :’PORTE DE CRISTAL 
38-45 

260 DATA 0,3,12,18,19,44,36,126,0,255,14 
6,146,255,0,0,0,0,255,73,73,255,0,0,0,66 
,255,66,66,255, 0,0, 0, 0, 0,0, 0, 0,24,36,36, 
0,192,48,72,200,52,36,126,60,126,60,126, 
60,126,60,126 :’PORTE A TROU 46-52 
270 DATA 0,0,0,0,63,64,64,63,0,0,0,0,126 
,129,129,126,0,36,102,36,126,129,129,126 
,0,0,0,0,252,2,2,252,61,130, 130,61, 130, 1 
30,61,130,240,8,8,240,8,8,240,8,15,16,16 
,15,16,16,15,16,190,65,65,190,65,65,190, 
65 :'PORTE ~ 53-60 

280 DATA 240,143,136,255,136,136,240,136 
,0,0,240,15,240,15,0,0,0,0,0,0,240,15,24 
0,15,0,0,0,0,0,0,240,31,136,248,136,136, 
248,136,136,248,31,17,17,31,17,17,31,17, 
240, 15, 0,0, 0,0, 0,0,0, 0,240, 15, 0,0,0,0,0, 
0,0,0,240,15,0,0,17,31,17,17,31,17,241,1 
5 :’P > 61-70 

290 DATA 0,0,0,0,0,0,15,248,0,0,0,0,15,2 
40,15,240,0,0,15,240,15,240,0,0,15,241,1 

7.255.17.17.31.17.248.136.136.248.136.13 
6,248,136,17,31,17,17,31,17,17,31,136,24 
8,136,136,248,136,143,240,0,0,0,0,15,240 
, 0,0, 0, 0, 15, 240, 0, 0, 0, 0, 15,240, 0, 0, 0, 0, 0 
,0 : ' P < 71-80 

300 DATA 128,192,224,240,248,252,254,255 
,1,3,7,15,*31,63,127,255 :'TITRE 81-82 
310 DATA 28,98,154,161,161,89,70,56 :’© 
83 

320 DATA 15,48,67,132,132,67,48,15,255,0 
,35,162,163,58,0,255,192,48,136,4,4,8,48 
,192 :'olf 
330 REM * CHATEAU * 

340 RESTORE 350: FOR 1 = 1 TO 51:READ N(I,1 
),0(I,1),S(I,1),ECI, l):FOR J = 1 TO 3:N(I, 

J)=N(I,1) : O(I,J)=Q(I,1):S(I,J)=S(1,1):E( 
I,J)=E(I,1) : NEXTJ , I 

350 DATA 53,0,2,0,1,0,5,3,0,2,6,0,0,0,7, 
5,2,4,8,0,3,0,9,0,4,0,13,8,5,7,0,9,6,8,0 
,10,0,9,16,0,36,0,0, 12,0, 11, 17, 13,7, 12,0 
, 14,0, 13,0, 15,0, 14,0, 16,10, 15,0, 0, 12,0, 1 
8,0,17,0,0, 19, 0, 18, 0,20,0, 19, 0,21,0,20,0 
, 22,0,21,0,23,26,22,0,0,27, 0, 0, 0,29,0,0, 
0,0,0,23,27 

360 DATA 31,26,24,28,32,27,0,29,33,28,25 
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, 0,34, 0, 0, 0, 37, 0,27,-0, 0, 0,28,33,39,32, 29 

*0,40,0,30,0,41,0,0,36,42,35,11,0,0,0,31 
,38,0,37-, 0,39,0,38,33,0,0,0,34,41,0,40,3 
5,42,43,41,36, 0, 46, 0, 42,44,47,43, 0, 0,48, 
0, 0, 46, 0,45,43,47,50,46,44,0,0,0,45,49, 0 
370 DATA 48,0,50,0,49,47,51,0,50,0,0 
380 REM * VARIABLES * 

390 FOR 1 = 0 TO 51:TRE(1,1)=0:TRE(1,2) = 0: 
TREC 1,3 ) = 0 :NEXT 

400 RESTORE 400:FOR 1 = 0 TO 9:READ OBMAIN 
SC I):NEXT:DATA "RIEN ou BOUFFE",FIOLE,DI 
AMANT,"CLE EN OR”,"CLE EN ARGENT","CLE E 
N RHODONITE","CLE DE CRISTAL","CLE D’EME 
RAUDE”,"FRANKLIN D’ARGENT",PYRAMIDE 
410 RESTORE 410:FOR 1=0 TO 11:READ OBS<I 
): MESS(I> =" VOUS PRENEZ : "+OB$(I)+” 

. ”:NEXT:DATARIEN,"UNE FIOLE","UN DIAMAN 
T","UNE CLE EN OR”,"UNE CLE EN ARGENT"," 
UNE CLE EN RHODONITE","UNE CLE DE CRISTA 
L",”UNE CLE D*EMERAUDE","LE FRANKLIN D’A 
RGENT" 

420 DATA "LA PYRAMIDE",”UNE BOURSE REMPL 
IE DE PIECES D’OR”,"UNE FIOLE" 

430 VIE=100: ROINT= 0:BOURSE=100:F10=0:FIO 
P=0: FIOE=0:PYRA=0 

440 CLE=0:CLEO=0:CLEA=0:CLER=0:CLEC=0: CL 
EE= 0 :DIAM= 0 : STATUE= 0 : BOUF= 0 : SAL=1 : ET=1 : O 
B=0 

450 REM * PRESENTATION X 
460 CLS:SCREEN7, 0, 0 
470 W=1:X=9:Y=0: Z=8 
480 RESTORE 500 

490 FOR 1=1 T028:READ A,B,C,D:LINECA,B>- 

CC,D)CHRSC127),X,Y: NEXT 

500 DATA 8,7,9,7,7,8,-7,11,7,10,10,10,10, 

8,10,11,7,13,11,13,9,13,9,17,13,7,17,11, 
13, 11, 17,7, 14, 13, 14, 17, 14, 15, 17, 15, 17, 13 
,17,17,21,7,22,7,20,8,20,11,20,10,23,10, 
23,8,23,11,21,13,24,13,20,14,20,14,20,16 
,20,16,21,15,23,15,21,17,24,17 
510 DATA 26,7-,26, 11,26,7,30, 11,30,7,30, 1 
1,27,14,27,14,28,13,31,13,28,15,30,15,31 

,16,31,16,30,17,27,17 

520 FOR 1=1 TO 12:READ A,B:PSETCA,B)GRSC 
81),V,Z:NEXT:DATA 7,7,9,9,16,7,15,8,14,9 
,13,10,25,14,24,16,25,18,32,14,32,17,31, 

18 

530 FOR 1=1 TO 11:READ A,B:PSETCA,B)GR$( 
81),Z,V:NEXT:DATA 6,7,7,6,12,6,12,10,13, 

9,15,7,16,6,21,14,21,16,28,14,31,17 

540 FOR 1=1 TO 7:READ A,B:PSBTCA,B)GRS(8 
1) , V,Y:NEXT:DATA 10,7, 13,6, 14,7,17,6,16, 

9, 17, 10,9,6 

550 FOR 1=1 TO 7:READ A,B:PSETCA,B)GR$(8 
1),Y,Z :NEXT: DATA 6,11,9,11,12,11,16,11,1 
5,10,13,8,12,7 

560 FOR 1=1 TO 6:READ A,B:PSETCA,B)GR$(8 
1),Y,V:NEXT:DATA 20,15,20,17,21,18,27,15 
,27,18,28,16 

570 FOR 1=1 TO 6:READ A,B:PSETCA,B)GR$C8 
1),Z,Y:NEXT:DATA 25,13,24,15,25,17,32,13 
,31,15,32,16 

580 FOR 1 = 1 TO 13:READ A,B,C,D:LINECA, B) 
-CC,D)CHRSC127) , V, Y: NEXT 

590 DATA 8,6,8,6,8,9,8,9,10,14,10,14,15, < 

16,15,16,7,14,7,14,22,6,22,6,22,9,22,9,2 { 


2,14,24,14,22,16,23,16,22,18,24,18,29,14 
,31,14,29,16,30,16,30,18,28,18 

600 FOR 1=1 TO 10:READ A,B,C,D:LINECA,B) 
-CC,D)CHRS C127) , Z, Y: NEXT 
610 DATA 6,8,6,10,9,8,9,8,8,15,8,17,13,1 
4, 13, 17,16, 14, 16, 14, 16, 17, 16, 17,21,8,21, 
8,24,8,24,10,27,9,27,10,31,7,31,10 

620 FOR 1=1 T08:READ A,B:PSETCA,B)GR$C82 
),Z,V:NEXT:DATA 8,14,16,16,23,6,24,7,27, 
6,28,7,29,8,31,6 

630 FOR 1=1 TO 9:READ A,B:PSETCA,B)GRSC8 
2),V,Z:NEXT: DATA6, 14,8, 18, 13,18, 16,18,21 
,9,23,7,27,7,28,8,29,9 

640 FOR 1=1 TO 3:READ A,B:PSETCA,B)GR$C8 
2),Z,Y:NEXT:DATA 6, 13, 13, 13, 16, 13 
650 FOR 1=1 TO 4:READ A,B:PSETCA,B)GR$CQ 
2),V,Y: NEXT: DATA 20,7,21,6,26,6,30,6 
660 FOR 1-1 TO 4:READ A,B:PSETCA,B)GRSC8 
2),Y,V:NEXT:DATA 11,14,9,18,14,18,17,18 
670 FOR 1=1 TO 4:READ A,B:PSETCA,B)GRSC8 
| 2),Y,Z:NEXT:DATA 21,11,24,11,27,11,31,11 
680 ATTRBO, 0: LOCATE17, 12, 0.-COLOR3, 15: PRI 
NT GRS C83)GRS C84)GRS C 85)GRS C 86) 

690 REM X TRESORS X 

700 A=INTCRND*50) + 1: IF TRECA,3)=0 THEN T 
RE CA,3)=9 ELSE 700 

710 A=INTCRND*50) +1 : IF TRECA,2)=0 THEN T 
RECA,2)=3 ELSE 710 

720 A=INTCRND*50)+1 : IF TRECA,2)=0 THEN T 
RE C A,2)=4 ELSE 720 

730 A=INTCRND*50)+1:IF TRECA,2)=0 THEN T 
RE C A,2)=5 ELSE 730 

740 A=INTCRND*50)+1:IF TRECA,2)=0 THEN T 
RE CA,2)=6 ELSE 740 

750 A=INTCRND*50)+ 1 : IF TRECA,2)=0 THEN T 
RE C A,2)=7 ELSE 750 

760 A=INTCRND*50)+1:IF TRECA,1)=0 THEN T 


RECA,1)=8 ELSE 760 

770 A=INTCRND*50) + 1: IF TRECA,3)=0 THEN T 

RECA,3) = 12: NCA, 3)=52 ELSE 700 

780 A=INTCRND*50) + 1: IF TRECA,2)=0 THEN T 

RECA,2) = 14: NCA, 2)=52 ELSE 710 

790 A=INTCRND*50)+ 1 ; IF TRECA,1)=0 THEN T 

RECA,1)=13:NCA,1)=52 ELSE 760 

800 FOR 1=0 TO 15 

810 A=INTCRND*50)+1 :B=INTCRND*2)+1: IF TR 
E CA,B)=0 THEN TRECA,B) = 1 ELSE 810 
820 NEXT: FOR 1=0 TO 15 

330 A=INTCRND*50>+1:B=INTCRND*2)+1 : IF TR 
E C A, B) =0 THEN TRECA,B) = U ELSE 830 
840 NEXT:FOR 1=0 TO 9 

850 A=INTCRND*50)+1 :B=INTCRND*2)+1 : IF TR 
E CA,B) = 0 THEN TRECA,B)=2 ELSE 850 
860 NEXT:FOR 1=0 TO 15 

870 A=INTCRND*50)+1: B=INTCRND*2) +1 : IF TR 
E CA,B) = 0 THEN TRECA,B) = 10 ELSE 870 
880 NEXT 

890 REM X ATTENTE D’UNE TOUCHE X 
900 IF INKEYSO"" THEN 900 
310 RESTORE 950 

920 A=RND:READ AS:IF A$="FIN" THEN 900 E 
LSE PLAY AS 

930 IF INKEYSO"” THEN 2210 
940 GOTO 920 

950 DATA A0T5O4L24DO,MI,L36S0,L12MI,L24S 
O,LA,L48SO,L24MI,SO,L96LA,L48SO,L24MI,SO 
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,L72S0,L12MI,L24FA,MI,L48RE,L24D0,RE,L48 

A2MI,RE,AODO,FIN 

960 REM * SALLE VIDE * 

970 IF SAL>=52 THEN 1530 

980 CLS:SCREEN7,0,0:ATTRBO,0:BOXF(0,0)-< 
40,4)” ”,,4:C0L0R6,4:BOXF(0,22)-(40,24)” 

tf 

990 LOCATEO,0,0:PRINT USING”VITALITE:## 

% POINTS:#########”; VIE,ROINT : PRIN 

T USING”OR:######## Pièces FIOLES:##### 
#####”; BOURSE,FIOE+FIOP 
1000 PRINT US ING” OBJ ET EN MAIN: 7, 

OBMAINîCOB):PRINT USING” 
CLES:### PYRAMIDE:#### DIAMANTS:###”;C 
LE,PYRA,DIAM:PRINT USING”STATUE :## 

NOURRITURE : ## REPAS”; STATUE,BOUF 
1010 C0L0R5,0:LINE(96,40)-(96,152):LINE- 
(224, 152): LINE-(224,40): LINE(224, 152)-(3 
20,176): LINE(0, 176)-(96, 152) 

1020 IF TRECSAL,ET)>0 THEN GOSUB 1160 
1030 IF E(SAL,ET)>0 THEN GOSUB 1100 
1040 IF O(SAL,ET)>0 THEN GOSUB 1130 
1050 IF N(SAL,ET)>0 THEN GOSUB 1070 
1060 GOTO 1290 
1070 REM * PORTE ~ * 

1080 C0L0R15,0:LOCATE18,12,0:PRINTGRSC53 
)GRS(54)GRS(55)GRS(54)GRS(56) 

1090 FOR 1 = 1 TO 6 :LOCATE 17, 12+I,0 :PRINT 
GRS(57)GRS(58):LOCATE 22, 12+1,0 : PRINT G 
RS(59)GRS(60):NEXT:RETURN 
1100 REM * PORTE > * 

1110 C0L0R15,0:LOCATE 32,14,0: PRINT GRS( 
61 )GR$ (62)GRS (63)GRS(.64 ) : FOR 1 = 1 TO 5: LO 
CATE 32,14+1,0:PRINTGRS(65)” ”GRS(66):N 

EXT 

1120 LOCATE 32,20,0:PRINT GRS(67)GRS(68 
)GRS(69)GRS(70) : RETURN 
1130 REM * PORTE < * 

1140 COLOR 15,0:LOCATE 4,14,0:PRINT GRS( 
71)GRS(72)GRS(73)GRS(74): FOR 1 = 1 TO 5:LO 
CATE 4,14+1,0:PRINT GR$(75)” ”GRS(76):N 

EXT 

1150 LOCATE 4,20,0: PRINT GRS(77)GRS(78)G 

RS(79)GRS(80):RETURN 

1160 REM * DESSIN DES TRESORS * 

1170 IF TRECSAL,ET) <=0 THEN RETURN 
1180 ON TRECSAL,ET) GOSUB 1190,1200,1210 
, 1220, 1230, 1240, 1250, 1260, 1270,1280, 1190 
,2620,2680,2720:RETURN 

1190 LOCATE 12,20,0:COLOR1,0:PRINT GRS(1 
0):LOCATE 12,21,0:COLOR2,0 : PRINTGRS(11) : 
RETURN 

1200 LOCATE 18,21,0 :COLOR I NT(RND*14) +1, 
0:PRINT GRS(16):RETURN 

1210 LOCATE 22,20,0:COLOR 3,0:PRINT GRS( 
8):RETURN 

1220 LOCATE 22,20,0:COLOR 8,0:PRINT GRS( 
8):RETURN 

1230 LOCATE 22,20,0 :COLOR 13,0:PRINT GRS 
(8):RETURN 

1240 LOCATE 22,20,0:COLOR 7,0:PRINT GRS( 
8):RETURN 

1250 LOCATE 22,20, 0:COLOR 1,0:PRINT GRS( 
8):RETURN 

1260 LOCATE 24, 16, 0:COLOR 8,0:PRINT GRS( 
17)GRS(18)GRS(19):LOCATE 24, 17,0 : PR INT G 


RS (20)GRS(21)GRS(22) : LOCATE 24,18,0:PRIN 
T GRS(23)GRS(24)GRS(25):LOCATE 24,19,0:P 
RINT GRS(26)GRS(27)GRS(28):RETURN 
1270 LOCATE 17,20, 0 : COLOR 14,0:PRINT GRS 
(O)GRS(l):LOCATE 17,21,0:PRINT GR$(2)GR$ 
(3) .-RETURN 

1280 LOCATE 23, 19,0:COLOR 15,0:PRINT GRS 
(12)GRS(13): LOCATE 23,20,0 : PRINT GRS(14) 
GRS(15):RETURN 

1290 REM * CHOIX DU JOUEUR * 

1300 A$=INPUTS(1) 

1310 IF AS=”M” THEN GOSUB 2770 

1320 IF AS=”V” THEN GOSUB 2800 

1330 IF AS=”P” THEN GOSUB 1550 

1340 IF A$=”B” THEN GOSUB 1840 

1350 IF AS=”Q” THEN GOSUB 1930 

1370 IF A$=CHRS(144) THEN LIST 

1380 IF AS=CHRS(145) THEN VIE=100 

1390 IF ASC(AS)>47 AND ASC(AS)<58 THEN G 

OSUB 1700 

1400 IF ASC(AS)>7 AND ASC(A$)<12 THEN GO 
SUB 1420 

1410 GOSUB 2150:GOTO 1290 

1420 REM * CHANGEMENT DE SALLE t 

1430 GOSUB 2150 

1440 IF SAL=1 AND A$=CHRS(11) THEN 2210 
1450 IF AS=CHRS(11) AND TRE(SAL,ET)=14 A 
ND CLEO> 0 AND CLEA>0 AND CLEOO AND CLER 
>0 AND CLEE>0 THEN 1530 

1460 IF AS=CHRS(11) AND TRE(SAL,ET)=13 A 
ND STATUE>0 THEN 1530 

1470 IF AS=CHRS(11) AND PYRA>0 AND TRE(S 
AL,ET)=12 THEN 1530 

1480 IF AS=CHRS(8) AND O(SAL,ET)>0 THEN 
SAL=0(SAL, ET) : GOTO 960 

1490 IF AS=CHRS(9) AND E(SAL,ET)>0 THEN 
SAL=E(SAL,ET) : GOTO 960 

1500 IF A$=CHRS(10) AND S(SAL,ET>>0 THEN 
SAL=S(SAL,ET): GOTO 960 
1510 IF AS=CHR$(11) AND N(SAL,ET)>0 AND 
N(SAL,ET)<52 THEN SAL=N(SAL,ET): GOTO 960 
1520 RETURN 

1530 REM * CHANGEMENT DE CHATEAU * 

1540 SAL=1:ET=ET+1:ROINT=ROINT+2525: FOR 
1 = 0 TO 100:FOR J = 0 TO 15:SCREEN, ,J :NEXTJ 
,I:IF ET=4 THEN 1990 ELSE GOSUB 2210 
1550 REM * PRENDRE *. 

1560 IF TRE(SAL,ET)<=0 THEN RETURN 
1570 ON TRE(SAL,ET) GOSUB 1590,1600,1610 
,1620,1630,1640,1650,1660,1670,1680,1690 
1580 GOSUB 2030:GOSUB 2190 :TRE(SAL,ET)=0 
: GOTO 960 

1590 FIO=FIO+l: FIOE=FIOE+1:RETURN 
1600 DIAM=DIAM+1: RETURN 
1610 CLEO=CLEO+l:CLE=CLE+1:RETURN 
1620 CLEA=CLEA+1 :CLE=CLE+1:RETURN 
1630 CLER=CLER+1:CLE=CLE+1:RETURN 
1640 CLEC=CLEC+1:CLE=CLE+1:RETURN 
1650 CLEE=CLEE+1:CLE=CLE+1:RETURN 
1660 STATUE=STATUE+1:RETURN 
1670 'PYRA=PYRA+1:RETURN 
1680 "GOSUB 2120: RETURN 
1690 FIOP=FIOP+l:FIO=FIQ+l:RETURN 
1700 REM * OBJET DANS LA MAIN * 

1710 LINE(0,2)-(40,2)” ”,,4 
1720 IF A$=”0” THEN OB=0 












1730 IF A$=”l” AND FIOE+FIOP>0 THEN OB=l 
1740 IF A$=”2” AND DIAM>0 THEN 0E=2 
1750 IF A$=”3” AND CLEO>0 THEN OB=3 
1760 IF AS=”4" AND CLEA>0 THEN OB=4 
1770 IF A$="5” AND CLER>0 THEN OB=5 
1780 IF A$=”6” AND CLEC>0 THEN OB=6 
1790 IF AS=”7” AND CLEE>0 THEN OB=7 
1800 IF A$=”8” AND STATUE>0 THEN OB=8 
1810 IF A$=”9” AND PYRA>0 THEN OB=9 
1820 LOCATE 0,2,0:C0L0R6,4 :PRINT USING”0 
B J ET EN MA IN : % »/>•. nn 

MAINSCOB) ' ' 

1830 RETURN 
1840 REM * BOIRE X 

1850 IF FIO<1 AND FIOE+FIOP<l THEN FIOE= 
0:FIOP=0: F 10=0:RETURN 

1860 A=INT(RND*7>+1:IF A/2=INT(A/2> AND 

FIOE>0 THEN GOSUB 1890 ELSE IF A/20INTC 

A/2) AND FIOP>0 THEN GOSUB 1910 

1870 LOCATEO, 1,0: COLOR6,4: PRINT USING”OR 

: ######## Pièces FIOLES: ##########” • BOU 

RSE,FIOE+FIOP 

1880 GOTO 1290 

1890 REM X JOUVENCE X 

1900 FIOE= FIOE-1 : VIE=100:GOSUB 2150:RETU 
1910 REM * POISON X 

1920 FIOP=FIOP-1 : VIE=VIE-29:GOSUB 2210:R 
ETURN 

1930 REM X SUICIDE X 

1940 AS=” VOULEZ-VOUS VRAIMEN 

T CREUVER ? ”: FOR 1 = 1 TO LEN( AS ) :LOCATE 

i?; T S 3 ^!? 0L0R 1NT CRND * 6 > +1, I NT ( RND*7) +8 : P 
RINT MIDS CAS, 1,20):PLAY”L24P”:NEXT:BEEP 
1950 LOCATE 10,23, 0: PRINT ”OUI ou NON ” 
:B$=INPUT$<3): PRINT'BS 
1960 IF BS=”OUI” THEN 1970 ELSE IF B$=”N 
ON” THEN 960 ELSE GOTO 1950 
1970 REM X MORT DU JOUEUR X 
1980 PLAY"T4Q4L96AODQDOL48DOL96DORE#L48R 
EL96REL48D0L96D0L4802LA#03L96D0” : GOTO 3 

3 0 

1990 REM X GAGNE X 
2000 CLS:LOCATE 0,9,0:PRINT ” 


X 

XXXX 

X 

X 

XXXX 

X 

X 

XX 

X 

X 

X 

X XX 

X 

X X 

XXX 

XX 

X X 

X 

XX 

X 

X 

XXX 

X 

X 

XXXX• 


XXXX X 
X X 

X XX X 
X X XX 
XXX X 

2010 FOR 1 = 1 TO 14 :SCREEN I, I, I :SCREEN I 
+1,I,1+1:SCREEN 1-1,I,1-1 : SCREEN 1,1+1 I 
.-SCREEN I, I-l, I:NEXT:CLS 
2020 GOTO 330 

2030 REM X GESTION DES POINTS X 
2040 ON TRECSAL,ET) GOSUB 2060,2070,2080 
,2080,2080,2080,2080,2090,2100,2110,2060 
“050 LOCATE 20,0,0 :C0L0R6,4 : PRINT USING” 
POINTS:##########”; ROINT:RETURN 

2060 ROINT=ROINT+20:RETURN 

2070 ROINT=ROINT+50:RETURN 

2080 ROINT=ROINT+200:RETURN 

2090 ROINT=ROINT+500>RETURN 

2100 ROINT=ROINT+900:RETURN 

2110 ROINT=ROINT+100:RETURN 

2120 REM X GESTION DEL’OR X 

2130 A=INT C RND*999)+1:BOURSE=BOURSE+A: LO 


CATEO,1,0:COLOR6,4 : PR INT USING”OR:###### 

## Pièces FIOLES: ##########” . BOURSE, F10 
E+FIOP 
2140 RETURN 

2150 REM X GESTION DES VIES X 

2160 VIB-VIE-l: IF VIE< = 0 THEN VIE=0:GOTO 
1970 

2170 LOCATE 0,0,0 :ATTRBO,0 :COLOR 6 4-PRI 
NTUSING”VITALITE:## %”;VIE ’ 

2180 RETURN 

2190 REM * APPARITION DES MESSAGES * 

2200 FOR 1 = 1 TO LENCMESS(TRECSAL, ET)>): L 
OCATE 10, 23, 0:COLOR INT(RND*14)+1,0 : PR IN 
T MIDS CMESS(TRECSAL,ET)), 1,20):PLAY”L12P 

” :NEXT : BOXF c 0,22)-C 4 0,24)” ”, ,4 :RETURN 
2210 REM * DEBUT X «js i UKN 

2220 CLS:SCREEN6,4,4:LOCATEO,9,0:PRINT”V 
OULEZ-VOUS : 1- ALLER CHEZ LE MARCHAND; 

A* _«rnTT 2 “ ENTRER BANS LE CHATEAU.” 

:AS=INPUTS(1) 

2230 IF AS=”1” THEN 2240 ELSE IF A$=”2” 
THEN 960 ELSE A$=INPUTS(1):GOTO 2230 
2240 REM X CHEZ LE MARCHAND * 

225 0 CLS:SCREEN6,4,4:LOCATEO,9,0: PRINT”C 
HEZ LE MARCHAND, VOULEZ-VOUS: C 

1 - VENDRE; 

2 - ACHETER; 

$= INPUTS C 1*) " ENTREK DAKS LE CHAT EAU.".-A 

2260 IF AS=”1” THEN GOSUB 2270 ELSE IF A 
S-”2” THEN GOSUB 2450 ELSE IF AS=”3” THE 
N 960 ELSE AS=INPUTSC1):GOTO 2260 
2270 REM X VENDRE X 

2280 CLS:SCREEN6,4,4: PRINT ”VOUS VOULEZ 
VENDRE :”:PRINT 
2290 PR INT”OBJET: 

2300 PRINT”0-RETOURNER A L 
2310 PRINT”!-DIAMANT 


2- SAC A DOS 

3- FIOLE VIDE 

4- FIOLE PLEINE 

5- Franklin D’ARGENT 


PRIX: 
ENTREE 

60 Piec 
32 Piec 
5 


Piec 
100 Piec 
600 Piec 

50 Piec 
25 Piec 
40 Piec 
9000 Piec 


es d’or, 
es d’or, 
es d’or, 
es d’or, 
es d’or. 

2320 PRINT”6-CLE EN OR 
es d'or. 7-CLE EN ARGENT 
es d’or. 8-CLE DE CRISTAL 
es d’or. 9-TOMBEAU DE Ra 
es d’or.” 

2330 LOCATEO,15,0:PRINT: C0L0R15, 4: PRINT” 
Vous avez : "BOURSE” pièces d’or.” .-PRINT 
:C0L0R6,4 :PRINT ”Votre choix ?”:AS=INPUT 
SCI) 

2340 IF A$=”1” AND DIAM>0 THEN DIAM=DIAM 
-1:BOURSE=BOURSE+60: GOTO 2330 
2350 IF AS=”2" THEN PRINT” Vous ne pou 
vez pas,vous n’avez pas desac a dos.”:PL 
AY”L72PPP”: GOTO 2270 

2360 IF AS=”3” AND FIO>FIOE+FIOP THEN FI 
0=FIO-l:BOURSE=BOURSE+5: GOTO 2330 
2370 IF AS=”4” AND FIOE+FIOP>0 AND FIO>0 
THEN FIO=FIO-l:BOURSE=BOURSE+100: GOTO 2 
330 

2380 IF A$=”5" AND STATUE>0 THEN STATUE= 
STATUE-1:BOURSE=BOURSE+600: GOTO 2330 
2390 IF AS=”6” AND CLEO>0 THEN CLEO=CLEO 
-1:CLE=CLE-1 :BOURSE=BOURSE+50: GOTO 2330 
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2400 IF AS=”7” AND CLEA>0 THEN CLEA=CLEA 
-1 :CLE=CLE-1 :B0URSE=BOURSE+25: GOTO 2330 
2410 IF AS=”8” AND CLEOO THEN CLEC=CLEC 
-1:CLE=CLE-1:BQURSE=BQURSE+40: GOTO 2330 
2420 IF A£=”9” AND FYRA> 0 THEN PYRA=PYRA 
-1 :BQURSE=BOURSE+9000:GOT02330 
2430 IF AS=”0” THEN 2240 
2440 GOTO 2330 
2430 REM * ACHETER * 

2460 CLS:SCREEN6,4,4:PRINT "VOUS VOULEZ 
ACHETER :”: PRINT 

2470 PR INT”OBJET: PRIX:” 

2480 PR INT”'0-RETOURNER A L’ENTREE 


2490 

PRINT” 

1-DIAMANT 

120 

Piec 

es 

d’ 

or. 

2-EAU DE JOUVENCE 

1000 

Piec 

es 

d’ 

or. 

3-Franklin D’ARGENT 

9000 

Piec 

e s 

d’ 

or.” 




2500 

PRINT” 

4-CLE EN OR 

100 

Piec 

es 

d’ 

or. 

5-CLE EN ARGENT 

50 

Piec 

e s 

d’ 

or. 

6-CLE DE CRISTAL 

80 

Piec 

es 

d’ 

or. 

7-TOMBEAU DE Ra 

18000 

Piec 

es 

d' 

or. 

8-VIANDE 

50 

Piec 


es d’or.” 

2510 LOCATEO, 15,0:PR I NT :C0L0R15,4 :PRINT” 
Il vous reste : ”BOURSE” pièces d’or.”;P 
RINT: C0L0R6,4:PRINT "Votre choix ?":A$=I 
NPUTS C1) 

2520 IF AS=”0” THEN 2240 

2530 IF A&=”1” AND B0URSE-119>Ô THEN BOU 
RSE=BOURSE-120:DIAM=PIAM+1 : GOTO 2510 
2540 IF AS=”2” AND BOURSE-999>0 THEN BOU 
RSE=BOURSE-1000 : FIO=F IO+l: FIOE=FIOE+1 : GO 
TO 2510 

2550 IF A$="3” AND BOURSE-8999>0 THEN BO 
URSE=BOURSE-9000:STATUE=STATUE+1 : GOTO 25 
10 

2560 IF A$ = ”4” AND EOURSE-99>0 THEN BOUR 
SE=BOURSE-100 :CLEQ=CLEO+1:CLE=CLE+1 : GOTO 
2510 

2570 IF A$=”5” AND BOURSE-49>0 THEN BOUR 
SE = BOURSE-50 :CLEA=CLEA+1 :CLE=CLE+1: GOTO 
2510 

2580 IF AS=”6” AND BOURSE-79>0 THEN BOUR 
SE=BOURSE-80 :CLE=CLE+1 :CLEC=CLEC+1 : GOTO 
2510 

2590 IF A£ = ”7” AND BOURSE-17999>0 THEN B 
OURSE=BOURSE-18000:PYRA=PYRA+1 : GOTO 2510 
2600 IF A$=”8” AND BOURSE-49>0 THEN BOUF 
= BOUF+l:BOURSE=BOURSE~50: GOTO 2510 
2610 GOTO 2510 

2620 REM * PORTE DE CRISTAL * 

2630 LOCATE 17, 12,0 :COLOR 7,0:PRINT GRS( 
38)GR$(39)GRS( 40 )GRS ( 39>GRS(40 >GRS(41): I 
= 1 

2640 LOCATE 17, 12+ I ,0 :PRINT GR$(42):LOCA 
TE 22,12+1,0: PRINT GRS(48>:I=I+1: LOCATE 
17, 12+I,0 :PRINT GRS < 44 ):LOCATE 22,12+1,0 
:PRINT GRS (45 > : 1=1 + 1: IF I<7 THEN 2640 
2650 LOCATE 19 , 14 , 0 :COLOR 14,0: PRINT GRS 
(4)GRS(5):LOCATE 19, 15,0: PRINT GRS(6)GRS 
(7): IF O<SAL,ET> >0 THEN GOSUB 1130 
2660 IF ECSAL, ET) >0 THEN GOSUB 1100 
2670 GOTO 1290 
2680 REM * SALLE DU SOCLE * 

2690 LOCATE 13, 17,0:COLOR 15,0:PRINT GRS 
t29 > GRS f30)GRS(31) :LOCATE 13 , 18,0 : PR INT 


GRS(32) GRS (33) GRS (34) :LOCATE 13, 19, 0: PRI 
NT GRS (35 )GRS(36)GRS(37): IF O(SAL,ET)>0 
THEN GOSUB 1130 

2700 IF E(SAL,ET)> 0 THEN GOSUB 1100 
2710 GOTO 1290 


2720 REM * SALLE DES SERRURES * 

2730 LOCATE 20, 11, 0 :COLOR 9,0: PRINT GRS( 
50): LOCATE 16, 12,0 : PR INT GRS( 46) GRS (47) G 
RS (48) GRS (47) GRS (49) GRS (48) GRS (47) GRS (48 
)GRS(51) 

2740 FOR 1 = 1 TO 6 :LOCATE 16, 12+1,0 : PR INT 
GRS(52):LOCATE 24, 12+1,0:PRINTGRS(52): N 
EXT:LOCATE 17, 14,0 :COLOR 1,0:PRINT GR$(9 
)” ”GRS(9>” ”GRS(9)” ”GRS(9):LOCATE 20,1 
3,0:PRINT GRS(9):IF 0(SAL,ET)>0 THEN GOS 
UB 1130 

2750 IF E(SAL,ET> >0 THEN GOSUB 1100 
2760 GOTO 1290 
2770 REM * MANGER * 

2780 IF BOUF>0 THEN VIE=100 :GOSUB 2150:B 
OUF=BOUF-1 ELSE RETURN 


2790 C0L0R6,4 :LOCATE 0,4,0:PRINT US ING”S 
TATUE:## NOURRITURE:## REPAS”; 

STATUE,BOUF:RETURN 
2800 REM * VOCABULAIRE * 


2810 CLS:SCREENO, 2, 1 

2820 LOCATE 9,0,0 : ATTRB1,0 : PR I NT”VOCABUL 
AIRE”:COLOR15,3 

2830 ATTRBO, 0:PRINT:PR INT”DEPLACEMENTS : 
UTILISEZ LES FLECHES DU 
CURSEUR.”:COLOR14,4 
2840 PRINT:PR INT”OBJETS EN MAIN 


E 

ANT 
EN OR 
EN ARGENT 
2850 PRINT 
ODONITE 
ISTAL 
RAUDE 
D’ARGENT 


0-RIEN 

1- FIOL 

2- DIAM 

3- CLE 

4- CLE 


5- CLE EN RH 

6- CLE DE CR 

7- CLE D’ EME 

8- FRANKLIN 

9- PYRAMIDE 


” : COLOR13,7 

PR I NT : PR INT”ACTIONS DI VERSES 


2860 
IRE 
NGER 
VRIR 
ENDRE 
ICIDE” 

2870 PRINT:COLOR12,6: PRINT” 

YEZ SUR UNE TOUCHE” : AS=INPUTS C1) 
0 


B=BO 

M=MA 

0=0U 

P=PR 

Q=SU 


APPU 
GOTO 96 


Programme n°1 (a sauver par SAVE"AXAN") 

110 à 540 présentation, redéfinition 
csrac tère , rég I e 

Programme n°2 (a sauver par SAVE"THES") 


1 10 

è 

360 Redéfinition des caract 

390 

à 

440 Initialisation des variables 

460 

à 

680 Présentation 

690 

à 

88 0 T ré s o r s 

890 

à 

. 1 980 Jeu 

2000 

à 

2140 Gagne 

2150 

à 

2200 Gestion des vies 

2210 

à 

2790 Chez le vendeur 

2800 

à 

2870 Vocabulaire 
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THOMSON 


COMBAT SPACE 

Vous êtes un petit vaisseau, 

vous devez détruire tous les ennemis qui se présenteront en tirant dans 

le sens de votre déplacement 

60 REM * POUR TO ET MO * 420 DEFGRS < 36) =60, 153, 196, 254, 126 60 c, l 

70 REM ^FONCTIONNE EN 7 COULEUR* 430 DATA 192,240, 248*, 254,255,255 2^5^55 

80 REM %%*%%%%%%%%%%%%%%%%%%%%%% 440 DEFGRS(37)=128, 0, 128,64,32.208, 16^22 


90 REM MANETTE DE JEU 0 OBLIGATOIRE 
100 ’ CE PROGRAMME EST FAIT POUR LES 
110 ’ ORDINATEURS THOMSONS EN BASIC 
120 ’ LE LISTING A ETAIT FAIT SUR UN 
130 ’ T09 EN BASIC 1.0+DOS+JOYSTICKS 
140 REM GRAPHISMES 

150 CLEAR1000,,75:CONSOLEO,24,0,0:CLS:SC 
REEN2,0,0:ATTRB1,0 :LOCATE6, 10,0 : PR I NT”PA 
TIENCE 

160 RESTORE31 0: FOR 1=0 TO 21 : F0RJ = 1T08 : R 
EAD A ( J ):NEXT J :DEFGRS<I)=A<1),A<2),A<3) 

,A(4),A (5),A<6>,A(7),A<8> 

170 F0RJ=1T08:B(J)=0:IF A<J)>127 THEN A< 
J)=A(J)-128:B(J)=B(J)+1 

180 IF A< J ) >63 THEN A(J)=A<J)-64 : B(J)=B< 
J)+2 

190 IF A( J )>31 THEN A(J)=A<J)-32: B(J)=B( 
J ) +4 

200 IF A ( J ) > 15 THEN A<J)=A(J)-16: B(J)=B( 
J ) +8 

210 IF A ( J ) > 7 THEN A(J)=A<J)-8:B<J)=B(J) 

+ 16 

220 IF A < J)> 3 THEN A<J)=A(J>-4:B<J) =B< J) 
+ 32 

230 IF A<J)>1 THEN A<J>=A<J)-2:B<J>=B<J> 

+ 64 

240 IF A(J)>0 THEN B<J)=B<J)+128 

250 DEFGRS(1+53)=B(1),B(2),B<3) , B<4) , B(5 

) , B(6),B<7>,B(8):NEXT J,I 

260 DEFGRS(22)=34,65,93,119,93,65,34,0 

270 DEFGRS(23)=153,66,90,60,90,6, 153,0 

280 DEFGRS(24)=0,219,36,219,36,219, 0, 0 

290 DEFGRS(25)=0,64,128,190,227,190 128 

64 

300 DEFGRS(26)=0,2,1,125,199,125,1,2 
310 DATA 0,0,0,0,0,0,1,127 
320 DEFGRS(27)=0,16,16,16,84,124,16,0-RE 
M VERS LE HAUT 

330 DEFGRS(28)=0,48,32,126,32,48,0,0:REM 
VERS LA DROITE 

340 DEFGR$(29)=0,8,62,42,8,8,8,0:REM VER 
S LE BAS 

350 DEFGRS(30)=0,0,12,4,126,4,12,0:REM V 

ERS LA GAUCHE 

360 DEFGRS(31)=0,3, 13,49, 127,255,0,0 
370 DATA 0,1,7,31,63,255,255,255 
380 DEFGRS(32)=0,128,96,24,252,254,0 0 
390 DEFGR$(33)=129,129,189,255,255!189 1 

29,129 

400 DEFGRS(34)=0,0,28,34,34,74,93,189 
410 DEFGRS(35)=1,0,3,4,4,6,5,5 


450 DEFGRS(38)=14,17,18,12,4,4,9,5 
460 DEFGRS(39)=255,203,8,8,72,146,18,16 
470 DEFGRS(40)=112,16,160,192,32,32,32,1 
92 

480 DEFGRS(41)=2,3,3,3,7,5,4,6 
490 DATA 0,1,15,63,127,255,255,255 
500 DEFGRS(42)=17,147,215,255,255,255,12 
6,62 

510 DEFGRS(43)=192,192,192,192,32,32,32, 
32 

520 DEFGRS(44)=6,6,6,10,10,10,8,10 
530 DEFGRS(45)=62,30,12,0,0,0,0,0 
540 DEFGRS(46)=160,160,32,160,160,144,80 
,80 

I 550 DATA 3,255,255,255,255,255,255,255 
560 DEFGRS(47)=18,16,16,18,32,32,32,16 
570 DEFGRS(48)=0, 0, 0, 1,2,0,0,0 
580 DEFGRS(49)=80,80,16,8,72,72,40,40 
590 DEFGRS(50)=8,56, 16,8, 15, 0, 0, 0 
600 DEFGRS(51)=0,0,0, 0,3, 252, 0, 0 
610 DATA 0,0,0,128,192,224,240,248 
620 DEFGRS(52) = 152, 136, 16,208,48,0,0,0 
630 DATA 255,127,31,0,0,0,0,0 
640 DATA 255,255,254,0,0,0,0,0 
650 DATA 255,255,255,63,31,7,0,0 
660 DATA 255,255,255,255,255,255,15,0 
670 DATA 252,254,255,255,255,255,255,255 
680 DATA 0,0,0,0,128,248,252,254 
690 DATA 15, 15,7,0,0,0,0,0 
700 DATA 255,254,252,248,0,0,0,0 
710 DATA 208,0,0,0,0,0,0,0 
720 DATA 0,0,0,1,3,15,31,63 
730 DATA 0,231,255,255,255,255,255,255 
740 DATA 48,230,252,254,255,254,252,252 
750 DATA 0,0,1,0,0,1,0,0 
760 DATA 127,255,255,255,255,255,255,231 
770 DATA 255,255,255,255,255,255,254,252 
780 DATA 252,248,240,192,128,0,0,0 
790 REM VARIABLES 
800 SC=0 
810 FUEL=136 

820 DIM Al(8),A2(8),Bl(16),B2(16) 

830 TIR1=0 
840 TIR2=0 
850 V=0 
860 Z=0 
870 X=0 
880 Y=0 

890 RESTORE890:FOR 1 = 1 TO 8:READ INX(I), 

I NY(I):NEXT:DATA0,-1, 1,-1, 1,0, 1,1,0, 1,-1 
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, 1,-1, 0,-1,-i 
900 GRF=27 

910 REM PRESENTATION 
920 CONSOLEO,24,0,0:CLS 

930 ATTRBO,0 :SCREEN7,0,0:LOCATE12,2,0 : CO 
LORO,3:PRINT”PREMARTIN PATRICK” 

940 LOCATE18,4,0:COLOR1,0:PR INT"VOUS”: LO 
CATE16,5,0:PRI NT”PRESENTE” 

950 ATTRE1,1:LOCATE14,8,0:COLOR2,0:PRINT 
"COMBAT”:L0CATE15,11,0:COLOR3,0 : PRINT”SP 
ACE” 

960 ATTRBO,0:LOCATEIO, 15,0:COLOR4,0: PRIN 
T”POUR LES POSSESSEURS”:LOCATE6,16,0:PRI 
NT”DE MICRO-ORDINATEURS THOMSON” 

970 LOCATE6,19,0:C0L0R5,0: PRINT”APPUYEZ 
SUR 1 POUR AVOIR LES”:L0CATE6,20,0: PRINT 
"REGLES DU JEU ET SUR 2 POUR”:LOCATE17, 
21,0:PRINT”JOUER.” 

980 FOR 1=7 TO 1 STEP -1: BOX<104-1,48+1) 
-<216+1,104-1),I:NEXT I 

990 COLOR7,0:LOCATE4,8,0:PRINT GRS(0)GRS 
<1)GRS < 2):LOCATE2,9,0:PRINTGRS<3)GRS<4)C 
HRS <127)CHRS <127)CHRS <127)GRS(5):L0CATE2 
, 10,0 : PRINTGRS < 6)GRS < 7)GRS < 8)GRS < 9)CHRS < 
127)GRS <10)GRS(11):LOCATE6, 11,0:PRINTGRS 
<12)GRS <13)GRS(14) 

1000 LOCATE33,8,0:PRINTGRS(55)GRS<54)GRS 
(53):LQCATE32,9,0 : PRINTGRS < 58)CHRS(17)CH 
RS(127)CHRS(127)GRS(57)GRS(56):LOCATE31, 
10,0:PRINTGRS(64)GRS(63)CHRS(127)GRS(62) 
GRS(61)GRS(60)GRS(59):LOCATE31,11,0:PRIN 
TGRS < 67)GRS(66)GRS(65) 

1010 COLOR1,0:LOCATE2,22,0:PRINTGRS(70)G 
RS(69)GRS <68):LOCATE2,23,0:PRINTGRS(74)G 
RS(73)GRS(72)GRS(71) 

1020 LOCATE35,22,0:PRINTGRS(15)GRS(16)GR 
S<17):LOCATE34,23,0:PRINTGRS(18)GRS(19)G 
RS(20)GRS(21) 

1030 AS= INKEYS : IF ASO"” THEN 1030 
1040 RESTORE 1080 

1050 I=RND:AS=INKEYS:READ BS:IF BS=”***” 
THEN 1040 

1060 PLAY BS:IF AS=”1" THEN 1150 ELSE IF 
AS=”2” THEN 1120 
1070 GOTO 1050 

1080 DATA AO,T3,L24,03, DO,DO,DO,L96,04,D 
O, SO, L34, FA, MI, RE, L96, DO, 03, SO, L34,04, FA 
, MI , RE, L96, DO, 03, SO, L12, P, T4, L24, DO, DO, D 
O, L96,04, DO, SO, L34, FA, MI, RE, L96, DO, 03, SO 
, L34,04, FA, MI, RE, L96, DO, 03, SO, L34,04, FA, 
MI , FA,L96,RE 

1090 DATA L12,P, L24,03, DO,DO,DO,L96,04,D 

O, SO, L34, FA, MI , RE, L96, DO, 03, SO, L34,04, FA 
, MI, RE, L96, DO, 03, SO, L34,04, FA, MI, FA, L96, 
RE,L6,P,P,P,P,P,P,P,P,P.P 

1100 DATA T4,04, L48, DO*, RE, SO, FA, L3P, L72, 
MI , L6, P, L48, DO, RE, SO, FA, L3, P, L48,03, MI, R 
E, L18, RE, MI , L48, DO, RE, SO, FA, L3, P, L48, 03, 
MI , RE, RE, MI, L12, P, 03, L48, DO, RE, SO, FA, L3, 

P, L72, MI , L6, P, L48, DO, RE, SO, FA, L3, P, L48, M 

I , RE, L18, RE, MI , L48, DO,RE,SO,FA,L3,P,L48, 
04, MI, RE,RE,MI 

1110 DATA L6, P, P, P, P, P, P, P. P. P. P. P- p . P- p 
,P,F,P,P,P,P,P,P,P,P,P.P.P.P»P*P' P > P > P ’ P 
P P P P P P 't-'K'K 

îl 2 o’CONSOLEO,24,0, 1: ATTRBO,0:FOR 1 = 1 TO 


10:LOCATEO,0, 0 : PRINTCHRS(11): NEXT 
1130 LOCATE 10,24, 0: C0L0R6,0:PRINT”DE:”; 

: COLOR7,0:PRINT”PREMARTIN ”; :COLOR1,0:PR 
INT”PATRICK” ; 

1140 CONSOLEO, 15, 0, 0: CLS:SCREEN7,0,0:GOT 
O 1370 

1150 REM REGLES 

1160 CONSOLEO,24,0, 1: ATTRBO,0:FOR 1 = 1 TO 
10:LOCATEO,0,0 : PRINTCHRS(11): NEXT 
1170 LOCATE 10,24, 0: COLOR6,0:PRINT”DE:”; 

: COLOR7,0:PRINT”PREMARTIN ”; :COLOR1,0:PR 
INT”PATRICK” ; 

1180 CONSOLEO,15, 0, 0: CLS: SCREEN7,0,0:GOT 
O 1220 

1190 LOCATE 16, 15, 0: COLORO,6:PRINT”ACTIO 
N”; 

1200 I=RND: J =STRIG(0):READ BS: IF BS=”*** 

” THEN RESTORE 1080: GOTO 1190 

1210 PLAY BS:IF J THEN CLS:SCREEN7,0,0:R 

ETURN ELSE 1190 

1220 COLOR1,0: LOCATE 0,5,0: PRINT” VOU 
S VOUS ETIEZ ENGAGE AVEC LESREBELLE 
S POUR LUTTER CONTRE L’EMPIRE.” 

1230 GOSUB 1190 

1240 COLOR2,0:LOCATE 0,5,0:PRINT” LA 
EATAILLE A DURE LONGTEMPS ET AFAIT D 
E NOMBREUX MORTS DANS LES DEUXCAMPS. 
ENFIN, L’EMPEREUR FUT DETRUIT PARSON PLU 
S FIDELE LIEUTENANT.” 

1250 GOSUB 1190 

1260 COLOR 3,0:LOCATE 0,5,0:PRINT” M 

ALHEUREUSEMENT, DES SOLDATS DEL’EMPI 
RE REUSSIRENT A FUIR ET CONTINUENTA SE 
BATTRE POUR REPRENDRE LE CONTROLEDE L’U 
NIVERS.” 

1270 GOSUB 1190 

1280 COLOR 4,0:LOCATE 0,5,0:PRINT” C’ 
EST POUR EMPECHER UN GROUPE DE CESSOLDAT 
S DE DETRUIRE UNE PLANETE, QUEVOUS 
ETES PARTI LES COMBATTRE AVEC UNEQUINZA 
INE D’AILES X.” 

1290 GOSUB 1190 

1300 COLOR 5,0:LOCATEO,5,0 : PRI NT” VOU 

S ETES LE SEUL SURVIVANT ET VOUSALLEZ D 
EVOIR DETRUIRE VOS ENNEMIS UN PARUN JUS 
QU’A CE QUE VOUS N’AYEZ PLUS DECARBURA 
NT OU JUSQU’A CE QU’ILS VOUSDETRUIS 
ENT CAR ILS VOUS ENTOURENT DETOUTES 
PARTS.” 

1310 GOSUB 1190 

1320 COLOR 6,0:LOCATE 0,5,0:PRINT” PO 
UR BOUGER, UTILISEZ LA MANETTE 0(CELLE 
DE DROITE). APPUYEZ SUR ACTIONPOUR 
TIRER. VOTRE TIR IRA DANS LADIRECT 
ION DE VOTRE VAISSEAU.” 

1330 GOSUB 1190 

1340 COLOR7,0:LOCATE 0,5,0:PRINT” FA 

ITES AUSSI ATTENTION AUX TIRSENNEMIS 
ILS RISQUENT DE VOUS ETREFATALS. 

If 

1350 GOSUB 1190 
1360 GOTO 1370 
1370 REM DECOR 

1380 CLS:CONSOLEO,2,0,0:SCREEN1,6,0:ATTR 
BO,0:LOCATE1,1,0:PRINT USING”SCORE:##### 
##### FUEL: ” ; SC: BOXF<176,8)-(.311, 15) , 3 
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Jp * p 1 X 7 ?; Y v 24:R=23:FOE I=Y T0 Y+R: b=sqe< 
^R*R)- ( CI- Y )* (I _ y ))) . LIKE(0i I),2:H 

1400 FOR 1 = 0 Tü 60:PSETUNT<RTO*320), IBT 
< RND*104)+24) , I NT (RND*8 ):NEXT 


1410 X=17:Y=10: PSET(X, Y)GR$(27) ,3,0 
Âtnni Y ” 04A0T5L4 ÔDODOL6PL24DODOL12PL36 
?flüOTo PL24 ° 4D0D0L12PL3603D0L6PL24 04D0D0L 

48PSISILÔPL24SISIL12PL3605D0L6PL2404SID0 

L12PL3603D0L6PL2404D0L48D0P” 

1430 C0NS0LE3,15,0, 0:GOSUE 2220:GOTO 219 

1440 REM MOUVEMENTS DU JOUEUR 

1450 TIR1=STRIG(0):MOUVE=STICK(0):I=X-J= 

Y: TT IF M0UVE THEN I=I+INX(MOUVE) : J=J+INY(M 

OUVE): GOSUB 1520 ELSE 1490 

1460 IF I<3 OR I>37 THEN I=X 

1470 IF J<3 OR J>15 THEN J = Y 

Y> " "• .0.-PSET<X*8 + irr<RSID*8> 

,YX8+INT(RND*8)) , INT <RNDX8) 

î 4 ^ X=I : Y=J: p SET<X, Y) GRS <GRF) ,3,0 
1500 IF TIR1 THEN TIR1=0:GOSUE 1640 
1510 RETURN 

1520 IF MOUVE=l THEN GRF=27:RETURN 
1530 IF MOUVE=3 THEN GRF=28:RETURN 
1540 IF MOUVE=5 THEN GRF=29:RETURN 
1550 IF M0UVE=7 THEN GRF=30:RETURN 
1560 RETURN 

1570 REM MOUVEMENTS DES ENNEMIS 

p 5 ?^I IR2=RND * 500: IF TIR2>=400 THEN GOSU 
B 174 0 

1590 I = W:J=Z: M= I NT < RHD*3>-1 :R=INT<RND*3> 

1. I-I+M:J-J+R: IF I<3 OR I>37 THEN I=V 
1600 IF J<3 OR J>15 THEN J = Z 

i? 1 L= SET<V ’ Z) " "■ 1 - 0: PSET(W*8+INT(RND*1 
6),ZX8+1 NT <RNDX8)) ; I NT( RNDX8) 

1620 V=I:Z=J : PSET(V, Z)ENNEMIS, 1,0 
1630 RETURN 

1640 REM TIRS DU JOUEUR 

FUEL=FUp L-3: BOOM=0: ON GRF-26 
GOTO 1660,1680,1700,1720:RETURN 

IF X=V AND Y>Z THEN I=V*8+3:J=Z*8+4 
:BOOM=1 ELSE I=X*8+3:J=25 

1670 LINE<XX8+3,Y*8)-<I,J),5: PLAY”L1A10T 

HS? ! FI f a f a f ] ° 4 LALAL alalalao3sososososos 

A01SISISISISIMIMIMIMI MIDOSID 
OSI DOSIDODODODODO” : LINE < X*8+3,Y*8)-<I J) 

,-1:RETURN ,J; 

1 Î^J F X<V AND Y=Z THEN I=VX8+3: J=Z*8+4 
:BOOM=l ELSE J=Y*8+3:1=319 

1690 LINE(X*8+8, Y*8+3)-(I,J),5:PLAY”LIAI 

1S1S1S1S1 04LALALALALALA03SOSOSOSOS 

0S002FAFAFAFAFA01SISISISISIMIMIMIMIMID0S 

IDOSIDOSIDODODODODO” : LINE(X*8+8,Y*8+3W - 
I,J),-1:RETURN , 

X=W AND Y<Z THEN I = VX8 + 3: J=Z*8+4 I 
: BOOM-1 ELSE I=X*8+4:J = 126 r 

LINE<X * 8+3 ,Y*8+8)-(I,J>,5;PLAY”L1A1 
0T5O5SISISISIS104LALALALALALA03SOSOSOSOS 2 

0S002FAFAFAFAFA01SISISISISIMIMIMIMIMID0S 

DOS ID0SI DODODODODO” : LI NE < X*8+3, Y*8+8>-f 2 
I,J),-1:RETURN f 

X>V AND Y=Z THEN I=VX8+3: J=Z*8+4 
:BOOM=l ELSE J=Y*8+4:1=25 r 

1730 LINE(X*8,YX8+3)-(I,J) f 5 ; PLAY”L1A10T 2 
505SISISISISI04LALALALALALA03S0S0S0S0S0S L 


K 002FAFAFAFAFA01SISISISISIMIMIMIMIMIDOSID 
N OSIDOSIDODODODODO" : LINECXX 8 ,YX 8 + 3 )-( I T) 

.-1:RETURN 

'T 1740 REM TIRS DU T. I.E. 

1750 TIR2=0:BOOM=0: IF R=-l THEN GOSUB 17 
80 ELSE IF M=1 THEN GOSUB 1800 ELSE IF R 
6 -1 THEN GOSUB 1820 ELSE IF M=-l THEN GOS 

L UB 1840 

O 1760 IF BOOM THEN 2290 
1770 RETURN 

9 1780 IF X=V AND Z>Y THEN I=X *8 + 4: J = Y*8+4 

: BOOM=l ELSE I=VX8+4:J=25 
1790 LINE<VX8+4, ZX 8 )-(I, J),4:PLAY”A6L504 
= T5DODODODOREREMIMIFAFA”:LI NE < VX8+4,ZX 8 )- 

I CI,J>,-1:RETURN 

1800 IF V<X AND Y=Z THEN I=X*8+3: J = Y*8+4 
:BOOM=l ELSE J=Z*8+3: I=319 
1810 LINE(VX 8 + 8 , Z*8+3)-<I, J >,4 : PLAY”A6L5 
04T5D0D0D0D0REREMIMIFAFA”:LI NE(VX 8 + 8 Z *8 

+3)-<I,J),- 1 ;RETURN I 

1820 IF X=V AND Z<Y THEN I=X*8+3: J = Y*8+4 
:BOOM=l ELSE I=V *8 + 3: J = 126 
1830 LINE(VX8+3, ZX 8 + 8 )-<I,J >,4 ; PLAY”A6L5 

04T5D0D0D0D0REREMIMIFAFA”:LI NE(WX8+3 ZX 8 

+ 8 )-(I,J),-l; RETURN 

1840 IF V>X AND Y=Z THEN I=X*8+3: J = YX 8 + 4 
: BOOM=l ELSE J=Z*8+3:I=25 

™^2t ^ INE<V * 8-1 ’ z * ô+3) ~< I. J > , 4 : PLAY” A6L5 

D4T5DODODODOREREMIMIFAFA”:LINECVX 8 ,ZX 8+3 

) - ( I , J ) ,-1:RETURN 
1860 REM SCORE 

1870 BOOM=0: GOSUB 2260:SC=SC+FUEL*5+SRE 
1880 LOCATE1,1,0:COLOR 1,6:PR INT USING”S 
JORE: ##########•• ; sc 

L890 IF SC>=99999999 THEN 2050 

L900 IF SC/40=1NT(SC/40) THEN FUEL=FUEL+ 

J 0 

L910 IF SC/400=INT(SC/400) THENFUEL=136 
-920 RETURN 
.930 REM FUEL 

.940 IF FUEL>136 THEN FUEL=136 

.950 FUEL=FUEL-0. 01 : BOXF(311, 15)-(176+1N 

'(FUEL), 8 ),- 1 : BOXF-(176,15),3 

960 IF FUEL<=0 THEN 2290 

970 RETURN 

980 REM PERDU:-EXPLOSION DU VAISSEAU 
-PLUS DE FUEL 

990 CONSOLE2,15,0,0; SCREEN, 1 :LOCATE19 5 
0:COLORO:ATTRB0,0:PRINTGRS(34):LOCATE18 
6,0:PR INTGR$(35)GR$(36)GRS(37):LOCATE18 
. 0.PRINTGR$(38)GRS(39)GR$(40) : LOCATE18 
. 8 ,0: PRINTGRS(41)GRS(42)GRS(43):LOCATE18 
,9,0:PR INTGRS(44)GRS(45)GRS(46) 

2000 LOCATE18,10,0:PRINTGRS(47)GRS(48)GR 
:L0CATE18,11 ,0:PRîNTGRS(50)GRS(51^G 

GRS(l 6 Î C ?n™? CATE14 ' U ’ ° : FF ^TGRS(25? 

GRS(26):LOCATE23,11,0: PRINTGRS(25)GRS(26 

f, L ?nr C ° L0R2 : PR1NTGR * «31)GR 
?< 32 >: LOCATE20, 13,0: PRINTGRS(31)GRS(32) 

LOCATFO S o L n°^ : COLORO ’ 3: CLS: CONSOLEof24 
.LOCATEO,0,0 :PRînT” VOUS AVEZ PERDU 

'* CE Q UI peste dema flotte a fait s 

ON TRAVAIL ET A EURAISON DE VOUS ”• 

f ? 8 ° t l V A004L12S1 05D0L2404SILALASOSI 

12SI SIL2405RE04LALAL4805REL1204S105D004 
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L24SILALASQSISI05RE04LAL12LASIL48S0” 

2040 GOTO2120 

2050 REM GAGNE:-SCORE=9999999999 
2060 CONSOLE2,15,0,0: LOCATE19,5,0:COLOR2 
:SCREEN,0:ATTRBO,0: PRINTGR$(34):L0CATE18 
,6,0:PRINTGRS(35)GRS < 36)GRS <37):L0CATE18 
| 7 ’ 0:PR INTGRS <38)GRS(39)GRS ( 40 ):L0CATE18 
; 8 ; 0: PRINTGRS < 41)GRS( 42 )GRS(43):L0CATE18 

' 9 ' 0:PR INTGRS(44)GRS(45)GRS(46) 

2070 L0CATE18,10,0: PRINTGRS<47)GRS<48)GR 
$(49):L0CATE18, 11,0 : PRINTGRS<50)GRS(51)G 
RS(52):COLOR2:L0CATE14 , 11,0:PR INTGRS(25) 
GRS(26):L0CATE23,11,0: PR INTGRS(25)GRS(26 

2080 L0CATE17,13,0:C0L0R6:PRINTGRS(31)GR 
$<32):LOÇATE20, 13,0: PR1NTGRS(31)GRS(32) 
2090 CONSOLEO,2:COLORO, 3: CLS:LOCATEO,0,0 
:CONSOLEO,24:PR INT” VOUS AVEZ GAGNE 
VOUS AVEZ DETRUITCE QUI RESTAIT DE CET 
ESCADRON MAIS IL YEN A D’AUTRES.”; 

2100 PLAY”A0T5O4L12DOL24LAL12LALASOLAA2L 

24SIbL12SOAOL24MIL12DOL24FAL12FAFAMIFAA2 

L 3 6 SOL 2 4 SOA 0 L12 S0L2 4 SOL12SOSOLASIb05 L36D 

004L24REL1S0L24FAL12FAS0FAS0L36A2LAL24LA 

L12 AOLALASCSOSOLASIb05L24 A2DOL12FAA0REO4 
SIbSOL24FAL12FAL24LAL12SOA2L36FAL24FA” 

2110 G0T0212G 

2120 REM UNE AUTRE PARTIE ? 

2130 PLAY”L12PPPP”:CONSOLEO,2 :COLOR6,0:C 
LS:PRINT” VOULEZ-VOUS FAIRE UNE AUTRE 
PARTIE ? APPUYEZ SUR O POUR OUI ET SUR N 
POUR NON”; :SC=0:BOOM=0:FUEL=136 
2140 AS= INKEYS : IF ASO”” THEN 2140 


2150 RESTORE 1080 

2160 A$=INKEYS:READ BS: IF BS=”***” THEN 
RESTORE1080:READ BS 

2170 PLAY BS:IF AS=”0” THEN 910 ELSE IF 

AS=”N” THEN CONSOLEO, 24, 0,0:ATTRBO,0:CLS 
:SCREEN4,6,6 : PRI NT”A BIENTOT...” : END 
2180 GOTO 2160 
2190 REM JEU 

2200 GOSUB 1440:IF BOOM THEN GOSUB 1860 
2210 GOSUB 1570:GOSUB 1930: GOTO 2200 
2220 REM CHOIX DU T. I.E. 

2230 FOR 1 = 0 TO 20:GOSUB 1440: 11=RND*50: 
NEXT:IF II>40 THEN ENNEMIS=GRS(33):SRE=2 
4 ELSE ENNEMIS=GRS(22):SRE=89 
2240 W=INT(RND*30)+5: Z=INT(RND*10)+3: IF 
V=X OR Z=Y OR (V=X AND Z=Y) THEN 2240 
2250 RETURN 

2260 REM DESTRUCTION D’UN T.I.E. 

2270 PLAY”T2L504A50” : PSET(V,Z)ENNEMIS, IN 
T(RND* 8 ),0:PLAY” DOREMIFASOLASI”: FOR J = 1 
TO 5:FOR 1=23 T024:PSET(V,Z)GRS(I), INT(R 
ND* 8 ),0:PLAY”DOREMIFASOLASI”:NEXT I,J 
2280 PSET(V,Z)” ”,,0:GOSUB 2220:RETURN 
2290 REM DESTRUCTION DU JOUEUR 
2300 PLAY”T1L12A0O4" : FOR J=27 TO 30:PSET 
(X,Y)GRS(J) , INT(RND* 8 ) , 0: PLAY”DOREMI”: NE 
XT: FOR 1 = 1 TO 5:FOR J=23 TO 24:PSET(X,Y) 
GRS(J), INT(RND* 8 ) , 0: PLAY”DOREMI”:NEXT J, 

2310 PSET(X,Y)" ”,0,0: PLAY”L6SOS1SOL24P” 

:PSET(X*8+INT(RND*8) , Y*8+INT(RND*8)), INT 
(RND*8) 

2320 GOTO 1980 


140 à 990 Initialisation du jeu et caractères 
800 à 900 Initialisation des variables 
910 à 1070 Présentation 

1080 à 1110 Donner musiques 

1120 à 1360 R gle 

1380 à 2130 Jeu 
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THOMSON 


DORKENS 


Dans cette partie, l’ennemi va tenter d’atterrir sur la droite de 
l’écran... A vous de rester vigilant 
et de détruire le plus possible d’appareils adverses 
ce programme fonctionne sur toute la gamme des Thomson. 


100 CE PROGRAMME A ETAIT FAIT SUR 
110 ’ UN T09 EN BASIC 1. 0 
120 REM GRAPHISMES 
130 CLEAR,,75 

!î n ° ^GR$<0)=224,255,224,255,252, 1,3,7 
1 25 5 DEFGR$<1)=90 > 255 *126,255,126,255,255 

Ivo npprpî^ >=7 ' 255,7 ’ 255 ’ 63t 128 * 1^2, 224 
170 DEFGRS(3)=15,30,62,126,254,238,78,22 

180 DEFGRS(4)=255,129,255,129,255,129,25 
5, 129 

190 DEFGRS ( 5 )=240, 120, 124, 126, 127, 119, 11 

200 DEFGRS(6)=0,0,129,127,127,129,0,0 
210 DEFGRS <7)=224,28,3,0,0,3,28,224 
220 DEFGRS(8)=7,56,192,0,0,192,56,7 
230 DEFGRS(9)=0,0,31,224,224,31,0,0 
240 DEFGRS(10)=0,0,248,7,7, 248, 0, 0 
250 DEFGRS< 11 )=o,252,3,0, 0, 3 , 252 , 0 
260 DEFGRS(12)=0,63, 192,0, 0, 192,63,0 
270 DEFGRS(13)=0,65,67,71,64,224,64,64 

?a°i?! FGR$(14)=128 ’ 192 ’224,240, 128, 128. 1 
132 

290 DEFGRS(15)=0,0,0,0,8,28,62,255 

300 DEFGRS(16)=0,0, 0,0, 0, 0, 0, 140 

310 DEFGRS(17)=67,79,127,255,255,31,31,1 

320 DEFGRS ( 1 8)= 197 , 244 ( 252,255,255,248,2 

*T Vy y O 

330 DEFGRS(19)=255,8,8,255,8,8,255,8 
340 DEFGRS(20)=204,12,30,255,0,12 204 12 
DHFGRS( 2 l)=ie,31,31,255,25é,63fl5:3 
360 DEFGRS<22)=8,249,248,255,255,252,240 

» l yO 

370 DEFGRS(23)=8,255,8,8,255,8,8,255 
380 DEFGRS(24)=30,255,0,0,204,12 12255 
390 DEFGRS(25)=0,0,0,0,0, 0, 33,94 
400 DEFGRS(26)=0,0,24,39,40, 240, 3, 4 

/on ^*< 27 >=°. °- °» 64,224,32,32, 152 
420 DEFGRS(28) = 136, 185,200, 143,8,7, 0, 0 
430 DEFGRS(29)=4,4,4,2,2,250,39,37 
440 DEFGRS(30)=136,72,68,36,34,50,41,42 
I 450 DEFGRS(31)=0,0,0,0,1,2,3,0 
460 DEFGRS (32) =37, 198,248,97,’ 134, 56, 193, 
131 

470 DEFGRS(33)=58,42, 124, 136, 196,36, 196, 

480 DEFGRS(34)=0,0, 112,92, 182, 106, 18 9 
490 DEFGRS(35)=13,13,11,4, 4)2> ! / 

500 DEFGRS(36)=0,128,112,143,96,156,99,1 


510 DEFGRS(37)=7,8,16,224,4,64,199,42 
520 DEFGRS(38)=0,128,64,59,148,17,34,132 
530 DEFGRS(39)=3,31,224, 15,52,216, 16,32 
540 DEFGRS(40)=0,192.224,0,0,0,0,0 
550 DEFGRS(41)=203,36,26,5.2,1,1,1 
> 560 DEFGRS(42)=30,208,15,32,25,22,17,225 

570 DEFGRS(43)=212,88,165,202,20,4,24,22 

! 580 DEFGRS(44)=64, 128, 0, 0, 0, 0, 0, 0 
590 DEFGRS(45)=0,0, 0, 1,2,6, 7, 0 

DEFGRS(46)=97,34,68,152,32, 192, 0, 0 
610 DEFGRS(47)=96,64,128,0,0,0,0 0 
620 DEFGRS(48)=0,0, 0,56, 124,254,254, 194 
630 DEFGRS(49)=0,0,0,7,15,49,68,132 
64 0 DEFGRS(50)=214,66,219,36,219, 0, 0,0 
650 DEFGRS(51)=0,0,0, 192,32, 144, 136,88 
660 DEFGRS ( 52 )=0,0,0, 1,1, 1,2,5 

670 DEFGRS(53) = 152,252,247,228, 134,7,27, 

9 

680 DEFGRS(54)=8,9,29,128,40,231,200,28 
690 DEF GRS(55)= 2 5 2 ,198,193,204,55,203,68 

f 130 

I?a 9 ïpGRS(56)=0,0,128,192,160,35,149,8 
710 DEFGRS(57)=0,0,0,0,0,0,192,64 
720 DEFGRS(58)=0,0,3,0, 2,3, 0, 0 

730 DEFGRS(59) = 13, 17,227, 140, 136,208,208 
t 2^ 4 

740 DEFGRS(60)=162,67,131,5,8,15,8,8 
750 DEFGRS(61)=158,57,255,254,49,134,97, 

18 

760 DEFGRS(62)=193,192,192,192,192,192 3 
2, 144 

770 DEFGRS(63)=20,243, 14,4,0, 0, 0, 0 
780 DEFGRS(64) = 128, 128,0, 0,0,0, 0, 0 
790 DEFGRS(65)=8,16, 16, 16, 16,8,8,8 
800 DEFGRS(66) = 150, 154, 149, 149, 163, 193, 1 
29,192 

810 DEFGRS(67)=80,16,16,16,8,8,8,168 
820 DEFGRS(68)=11,11,17,49,86,94,94 74 

830 DEFGRS(69)=192,192, 128,0,0, 0, 0, 0 
840 DEFGRS(70)=120,116,52,44,44,44,52,52 
850 DEFGRS(71)=98,66,36,36,36,20, 20,20 
860 DEFGRS(72)=52,52,36,18,21,11,6,0 
870 DEFGRS(73)=20,20,34,34,82,124,116,8 
880 DEFGRS(74)=223,223,223, 0, 251,251,251 
> 0 

890 REM VARIABLES 

900 VA IS=GRS(0)+GRS(1)+GRS(2)+CHRS(8)+CH 
RS(8)+CHRS(8)+CHRS(10)+GRS(3)+GRS(4)+GRS 
(5) 

910 VAIS(1)=GRS(7)+GRS(6)+GRS(8) 

920 VAIS(2)=GRS(11)+GRS(6)+GRS(12) 
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930 VA1$(3)=GRS(9)+ GRS <6>+GRS <10) 

940 LASER=48 
950 SC=0 
960 NB1 = 0 
970 NB2=0 

980 REM PRESENTATION 

990 CONSOLEO,24,0,0:CLS:SCREEN7,0,0:ATTR 
BO, 0 

1000 COLOR INT<RND*7-) +1,0: LINE< 104,64)-< 
216,64): LINE-<224,72): LINE-<224,88): LINE 
- <216,96) : LINE-<104,96) : LINE--<96,88) : LIN 
E-<96,72):LI NE-<104,64 ) 

1010 L0CATE7,6,0:COLOR4 , 0 : PR I NT”PREMARTI 
N ”; :COLOR7,0:PR INT”PATRICK ”; :COLOR1,0 : 
PRINT”PRESENTE” 

1020 LOCATE13, 10,0:ATTRB1, 1 :COLOR2,0:PRI 
NT”DORKENS” 

1030 ATTRBO,0:LOCATE14,13,0:C0L0R3,0:PRI 
NT”POUR THOMSON" 

1040 C0L0R5,0:LOCATE2, 17,0:PRINT”APPUYEZ 
SUR 1 POUR AVOIR LES REGLES” 

1050 C0L0R6,0:LOCATEIO, 18,0:PRINT”ET SUR 
2 POUR JOUER.” 

1060 AS =INKEYS: IF A$<>”” THEN 1060 
1070 RESTORE1100 

1080 I=RND:AS=INKEY$: READ BS: IF BS=”***” 
THEN RESTOREllOO: READ BS 
1090 I=RND:PLAY BS: IF AS=”1” THEN 1340 E 
LSE IF AS=”2” THEN 1460 ELSE 1080 
1100 DATA AO,T5,04, L24,DO,DO,FA,FA,LA,LA 
,05,DO,L48,DO,L36,04, SI#,L12,LA,L24,SI,O 
5,DO,L48,04,LA,L24,P 

1110 DATA AO, T5,04, L24,DO,DO,FA,FA,LA,LA 
,05,DO,L48,DO,L36,04, SI#,L12,LA,L24,SI,O 

5, DO,L48,04,LA,L24,P 

1120 DATA L24,04 , FA, FA, 05,RE,RE,RE,L36,R 
E, L12, DO, L24, DO, RE, L36,DO,04,L12,SI#,L24 
,SI#,05,DO,04,L36, SI#, L12,LA,L48,LA 
1130 DATA L36,04,SO,L12,LA,L24,SI#,SO,L3 

6 , LA, L12, SI#, L24,05, DO,04,LA,L36,05, DO,O 
4,L12,SI,L24,LA,SO 

1140 DATA A2,L24,04,FA,SO,LA,AO,L6,P,L24 

,P 

1150 DATA L36,04,SO,L12,LA,L24,SI#,SO,L3 
6 , LA, L12, SI#, L24,05, DO, 04, LA, L36,05, DO, O 

4, L12,SI,L24,LA,SO 

1160 DATA L48,04,AO,FA,L24,P 

1170 DATA AO,T5,04,L24,DO,DO,FA,FA,LA,LA 

, 05, DO, L48, DO, L36,04 , SI#,L12,LA,L24, SI ,O 

5, DO,L46,04,LA,L24,P 

1180 DATA AO, T5,04 , L24 , DO,DO,FA,FA,LA,LA 
,05,DO,L48,DO,L36,04, SI#,L12,LA,L24,SI,O 
5,DO,L48.04,LA,L24,P 

1190 DATA AO,T5,04 , L24,DO,DO,FA,FA,LA,LA 
, 05, DO, L48, DO, L36, 04,SI#,L12,LA,L24, SI,0 

5, DO,L48,04,LA,L24,P 

1200 DATA L24,04, FA, FA, 05,RE,RE,RE,L36,R 
E, L12, DO, L24, DO, RE, L36, DO,04,L12,SI#,L24 
,SI#,05,DO,04,L36, SI#, L12,LA,L48,LA 
1210 DATA L36,04,SO,L12,LA,L24,SI#,SO,L3 

6 , LA, L12, SI#, L24,05, DO, 04, LA, L36, 05, DO, O 
4, L12, SI,L24,LA,SO 

1220 DATA A2,L24,04,FA,SO, LA, AO, L6, P, L24 
, P 

1230 DATA L36,04,SO,L12,LA, L24, SI#, SO, L3 
6 , LA, L12, SI#, L24,05, DO, 04, LA, L36,05, DO, O 


4, L12, SI,L24,LA,SO 

1240 DATA L48,04,AO,FA,L24,P 

1250 DATA AO, T 5 , 04, L24,DO, DO,FA,FA,LA,LA 

,05,DO,L48,DO,L36,04,SI#,L12,LA,L24,SI,O 

5, DO,L48,04,LA,L24,P 

1260 DATA AO,T5,04,L24,DO,DO,FA,FA,LA,LA 
,05,DO,L48,DO,L36,04,SI#,L12,LA, L24,SI,O 
5,DO,L46,04,LA,L24,P 

1270 DATA AO,T5,04,L24,DO, DO,FA,FA,LA,LA 
,05,DO,L48,DO,L36,04,SI#, L12 , LA, L24 , SI,O 

5, DO,L48,04,LA,L24,P 

1280 DATA L24,04,FA,FA,05, RE, RE, RE,L36,R 
E, L12, DO,L24,DO,RE,L36,DO, 04,L12,SI#,L24 
,SI#,05,DO,04,L36,SI#,L12,LA,L48,LA 
1290 DATA L36,04,SO,L12,LA,L24, SI#, SO,L3 

6 , LA, L12,SI#,L24,05,DO,04, LA,L36,05,DO,O 
4,L12,SI,L24,LA,SO 

1300 DATA A2,L24,04,FA,SO,LA,AO,L6,P,L24 
, P 

1310 DATA L36,04,SO,L12,LA, L24, SI#,SO,L3 
6 , LA, L12, SI#,L24,05,DO,04, LA, L36,05,DO,O 

4, L12,SI,L24,LA,SO 

1320 DATA L48,04,AO,FA,L24,P 

1330 DATA AO,T5,04,L24,DO,DO,FA,FA,LA,LA 

,05, DO,L48,DO,L36,04,SI#,L12,LA,L24,SI,O 

5, DO, L48,04, LA, L24, P, L 6 , P, P, P, P, P, P, P, P. 
P,P,P,P,P,P,P,P,P,P>P»P.*** 

1340 REM REGLES 

1350 CONSOLEO,24,0,0:CLS:SCREEN7,0,0:RES 
TOREllOO:GOTO 1390 

1360 LOCATE 0,15,0:COLOR 0,3:PRINT ”APPU 
YEZ SUR UNE TOUCHE POUR LA SUITE ...” 

1370 I=RND:AS=INKEYS:READ BS: IF BS=”***” 
THEN RESTOREllOO: READ BS 
1380 C0L0R1,0: PLAY BS: IF ASO”” THEN RET 
URN ELSE 1370 

1390 LOCATE 0 , 5 , 0 :C0L0R1,0:PRINT” VOU 
S ETES SUR LA PLANETE DORKENS.CETTE 
PLANETE EST SANS ARRET ATTAQUEEPAR DES 
NAVETTES INCONNUES.”:GOSUB 1360 
1400 CLS:LOCATE 0 , 5,0 :C0L0R2,0 : PR I NT” 
VOUS DISPOSEZ DE TROIS CANONS LASERET 
D’UNE RESERVE LIMITEE D’ENERGIE POURDET 
RU IRE TOUTES LES NAVETTES PASSANT APRO 
XIMITE.”:GOSUB 1360 

1410 CLS:LOCATEO,5,0:C0L0R3, 0: PRINT” 
ATTENTION, SI AU MOINS NEUF DE CESOVNI 
S ARRIVENT A PASSER VOS DEFENSES,VOS 
ENNEMIS AURONT REUSSI A RASSEMBLERLES 
PIECES NECESSAIRES A LA CONSTRUCTIONDU D 
ESTRUCTEUR.” 

1420 GOSUB 1360 

1430 CLS:LOCATEO,5,0:C0L0R4, 0: PRINT” 

BONNE CHANCE." 

1440 GOSUB 1360 

1450 GOTO 1460 

1460 REM DESSIN DU DECOR 

1470 CLS:CONSOLEO, 24,0, 0: SCREEN7, 0,0: BOX 
F<0,2)-<3,17)GRS<74),4:BOXF<0,17)-<39,24 
) GRS < 7 4 "> 

1480 LINE<32,0)-<39,0)GRS<74): LINE-<39, 1 
0)GRS < 74):B0XF<32,9)-<39, 17)GRS<74): LINE 
<32,3)-<32,8)GRS<74):LI NE<35,3)-<35, 8 )GR 
S < 74 ) 

1490 ATTRB1, 1 :RESTORE1490: FOR 1=7 TO 1 ST 
EP-1:L0CATE1, 18-1*2,0: READ AS:COLOR 1,4: 
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J *l =i THE ® COLOR 0,4 
152 0 D,0,R,K,E,S,S 

T"DF-PRFMfo; ' L0CATE1 ' 18 ' 8: COLOR6,4 ; PRIN 

" Cofraf J 1 !" 1 : C0L ° K7 ’ 4: p R«T-PATRICK 

Dnv! 1,4:PRlN? ' EÎÎ 1987.” 

0 0 COLOR3 Z t “p!® > - C311 • 136 ) , 3 : LOCATE33, 1 
1 ?i: 0R3 ' 4 •' PR1NT ” LASER : ” 

?S» &.£S?p5ÏE 

L > GRM24 f : ^EXT 1 ” GRÎ (21 > ° RÎ (22 ’ ° BÎ < 

1550 GOSUB 1610 
1560 GOTO 1570 
1570 REM JEU 
1580 GOSUB 2570 

1 thpat I L LASÉR> 0 - THEN AS=INKEY$: IF A $=”l” 
ub i^elIf^V 1 ^ IF A *=" 2 " m GOS 
1600 GOTO ?570 THEIf G0SÜB 1820 

CH0IX Du VAISSEAU ENNEMI 
1620 BOXFCX,Y)- (X+2,Y+l ) ” ” o Y-4-Y=n p 

HEN^F ™i 50:J = R ro:NEX T : IF RND*500> 400 ‘ T 
ff K FT IF THES MONSTRE=l ELSE MONSTRE 

STKE=1 THEN M0!IST KE=2 ELSE MON 

1630 RETURN 
1640 REM TIRl 

1 ELSE ^ J =. 0 ^ EOOM= 0 X>3 ^ J = ™^BOOM=l 
SDOREDOREfI";LINE-<49 '{ 12)‘ PEAY ” L 1 A33 04T 

p&ZïïLiïïi&z îir“!î oiLiAoTs 

0DOREM]FASOLÀsi”-ZlM:<68 2 ir“ Y "r L5 ° 4A5 
1700 LI HE< 76, 1 18>-(76,j?fà.UK < 77 118, 

17 7 20° R G e°T S UrV 95 ° : " B0OT 191° 

1730 REM TIR2 

rKsj'jXfSoïV’* 4 T ™ 

îsyssKinsïsiSiîîrîr 1 "*" 

T5D0S0REFAM?! i LA” : ZI NE- U36 ? 1 f^ Y ”° 1L1A0 

SKBïStfSd®*^ 

ÎK^f^fîSRéS»^ 

.‘“S S,', 185 " " “» ™» .... 

1820 REM TIR3 

1830 IF X <30 AND X >24 THEN J=Y*8 + 4 : BOOM= 


\\ 7 Jt B ° CATE 29, 0, 0: PRINT” ”:NB2=NB2+1 
2180 IF X<36 THEN X=X+1 ELSE 2210 
2190 MONS-MONS+1 : IF MONS>3 THEN MONS=l 


1 ELSE J = 0 :BOOM=0 

1840 LINE(209,112)-(209 J) 6 • pt a y>> t i a oo 
4T5DOREDOREFA”: LINE-<209 Îîf i -i L 1 A33 ° 
1850 LINE(216, 111>-<216,j) , 7•PLAY"01L1 An 
T5D0S0REFAMISILA":LINE-<216 lllt -1 
1860 LINE<221, 118) - <223., J ) 6 ■ PLAY" Tl AOI ? 
4D0RESIS0":LI NE-(221,118) -1 1A ° L2 

1870 LINE(228,115)-(228,J),2•PLAY”TPTRnn 
A5ODOREMIFASOLASI”:LI NE-(228 ' T15 ) - ? 4 

LI NE-?237 ' fl T r 1L1204A °DOREMI DOREMI ” 

■LINE <237, 118),—1 : LINE<236, 118)-<236,J) 

Î^OO S/ 9 " ^ B0 ° K THM 1910 

1910 REM DESTRUCTION DU VAISSEAU 

ODOREMIFA”:NEXT 15A3L304D 

G0SUB 2000:GOSUB 1610:GOTO 1570 
1950 REM GESTION DE L’ENERGIE 
I960 LASER=LASER-1 
1970 IF LASER>48 THEN LASER=48 
1-80 LINE<264, 136-LASER) - (311, 136-LA C 'ER) 

,-l:B0XF(3ll,l37-LASER)-(264 136) 3 

1990 RETURN ' 130) > 3 

2000 REM GESTION DU SCORE 

2010 SC=SC+SRE+LASER*10 

”### # #^ A SC- ?F ' Fri °qq° L 0R5 ' 0 : PR11,7 US ING 
?n î! T* ’^C. IF SC> =999999 THEN 2360 

2030 IF SC/6 0=1 NT (SC/60) THEN LASFR-T acjr 
R+10:GOSUB 1950 ^ASER-LASE 

2040 RETURN 

2060 IF T MnNSTFB G ? ? ES VAISSEA UX ENNEMIS 
2070 ,p "°f S TRE=l THEN 2070 ELSE 2140 

r^ldiVo^ ^ ELSE IF Y<1 ™hn 

OCATE L X C vIf o' p;?; COLOR 5 ' 0:PR HfT VAIS: L 
UUAIE X, Y+2, 0: PRINT.PI AY-TPT onm 

si LAFADOMI LASISOREDOSOSIMIFALA'' GOTO 207 

? B1 =N b 1+1:LOCATE 29,0,0:PRINT” 

100 IF X<33 THEN X=X+1 ELSE 2120 
2110 LOCATE X,Y,0:COLOR 5,0:PRINT GR$(0) 

GRS ( 1 ) GRS (2) : LOCATE X,Y + 1PR NT GRin 
S 4)GRS(5):PSET(X-1 f Y+ 1)« ”fpsETŒ- î 

S IM^A A L Y ;.Tf^°-^' BAEA UO«ILAS IS OR^O 
2120 FOR 1=2 TO 9-NBl*2 

y™a*™ 0CATE X ' 1-1.0: pr!nt" -FLA 

LA" NEX? GOTO 2 ’ L ASI SORE “SOS I MI FA 

^ Yel^^T y=W ELSE 1F Y<1 

sîeo mrfrF°y S v 1:IF MOTS>3 THEN «ons=i 
/160 LOCATE X, Y, 0: COLOR 3,0: PRINT vaium 

ONS):LOCATE X, Y+l, 0:PRINT” ” PLAY”T2L2 
TO 21 ! 0 1LAFAD0M1LAE ISOREDOSOSIMIFALA"fGO 
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2200 LOCATE X,Y,0:COLOR 3,0:PEINT VA1S<N 
ONS):PSETCX-l,Y)” ”: PLAY”T2L2A304RESILAF 
ADOMI LASISOREDOSOSIMIFALA”: GOTO 2180 
2210 FOR 1=2 TO 9-NB2 

2220 MONS=MONS+l:IF MONS>3 THEN MONS=l 
2230 LOCATE X,I,0:COLOR 3,0:PRINT VA1S<M 
ONS):LOCATE X, 1-1,0:PR INT” ”:PLAY”T2L2 

A304RESILAFADOMILASISOREDOSOSI MIFALA": NE 
XT 

2240 IF NB1+NB2>=10 THEN 2260 
2250 GOSUB 1610:GOTO 1570 
2260 REM PERDU 

2270 FOR 1=8 TO 72:LINE(256, I )-(311, I),- 
1: PLAY”L1A3304T5D0RED0REFA”:NEXT 
2280 FOR 1=35 TO 29 STEP-1:LOCATE 1,6,0: 
PLAY”A0T5O5L6SQSISOL24P”:COLOR 1,0 : PR INT 
GRS(25)GRS <26)GRS <27)” LOCATE 1,7,0:P 

RINT GRS <28)GRS(29)GRS< 30 ) ” ":LOCATE 1,8 
,0:PEINT GRS <31)GRS <32)GRS(33)” ”:NEXT 
2290 FOR 1=5 TO 13 : PLAY”A0O5T5L6SOSISOL2 
4 P”:LOCATE 29,1,0:PEINT ” ”:LOCATE 29, 

1+1,0:PRINT GRS<25)GRS(26)GRS<27) 

2300 LOCATE 29, I+2,0: PRINT GRS<28)GRS<29 
)GRS<30):LOCATE 29, I+3,0: PRINT GRS<31)GR 
S <32)GRS <33) : NEXT 

2310 FOR 1=28 TO 4 STEP-1:LOCATE 1,14,0: 

: PLAY”L6SOSISOL24P”:PRINT GRS<25)GRS<26) 
GRS <27)” ”:LOCATE 1,15,0:PRINT GRS<28)GR 
S <29)GRS < 30)” ”:LOCATE 1,16,0:PRINT GRS< 
31)GRS<32)GRS<33)” ”:NEXT 

2320 PLAY”L6S0SISOL24P”:LOCATE 4, 14,0:PR 
INT GRS<26)GRS<27)” LOCATE 4,15,0:PRIN 

T GRS < 29)GRS < 3 0)” ”:LOCATE 4 , 16,0:PRINT 
GRS < 32)GRS < 33)” ” 

2330 PLAY”L6S0SISOL24P”:LOCATE 4,14,0:PR 
INT GRS<27)” LOCATE 4,15,0:PRINT GRS<3 
0)” ”:LOCATE 4,16,0:PRINT GRS<33)” ” 

2340 PLAY”L6SOSISOL24P”:LINE<4,14)-<4,16 
)” ” 0 

2350’LOCATE 0,1 : ATTRBO,1:COLOR 3,0:PRINT 
” VOUS AVEZ ETE DETRUIT ET LA BASE EST 
REDUITE EN CENDRES.”:PLAY”AOT504L96REL7 

2REL24REL96REL72FAL24MIL72MIL24REL72REL2 

4DO#L96RE”: GOTO 2440 
2360 REM GAGNE 

§370 FOR 1=5 T025:COLOR 2,0:LOCATE 1,13, 
OVPRINT ” ”GRS<34):LOCATE 1,14,0:PRINT 

” <}RS < 35 ) GRS < 36 ) GRS < 37 ) GRS < 38 ) GRS < 39 ) GRS 

<40):LOCATE I, 15,0: PRINT” ”GRS<41)GRS<4 
2)GRS<43)GRS<44):LOCATE I,16,0:PRINT 
”GRS < 45)GRS < 46)GRS <47):PLAY”01L12MI02L10 
DO”:NEXT 

2380 FOR I = 12TO 5STEP-1 :COLOR2,0 :LOCATE2 
6,1,0:PRINTGRS <34)” ”:L0CATE26, 1 + 1.0 

: PRINTGRS<35)GRS<36)GRS <37)GRS <38)GRS<39 
)GRS < 40):LOCATE26, 1+?,0:PRINT” ”GRS<41)G 
RS < 42)GRS < 43)GRS < 44)” ”:LOCATE26, I+3,O: P 
RINT” ”GRS<45)GRS<46)GRS<47)” 

2390 LINE<26, I+4)-<31, 1+4)” ”:PLAY”01L12 
MIO2L10DO” : NEXT 
2400 FOR 1=26 TO 32 

2410 COLOR 2,0:LOCATE 1,5,0:PRINT ” ”GRS 
<34):LOCATE 1,6,0:PRINT ” ”GRS<35)GRS<36 
)GRS<37)GRS<38)GRS<39)GRS<40):LOCATE I,7 
0:PRINT" ”GRS<41)GRS<42)GRS<43)GRS<44) 

:LOCATE 1,8,0:PRINT ” ”GRS<45)GRS<46)GR 

$<47): PLAY”Q1L12MI02L1ODO” : NEXT 


2420 LOCATE 0,1,0:ATTRBO, 1:COLOR 6,0:PRI 
NT” BRAVO, VOUS ETES SI FORT QUE V 
OUSAVEZ DETRUIT LA FLOTE ENNEMIE A V 
OUSTOUT SEUL.” 

2430 PLAY"A0L12T6O5DODOO4SILAL28SIO5L12D 
OL40REL24DQL6PL12D0D004SILAL28SI05L12DOL 

40REL24DOL6PO4L12SOL24LA#L12SO#SOFARE#L3 

2FAL6PL12D003S104 D0RES0RE#RE03S0LASISISO 
L3204D0”:GOSUB 2440 
2440 REM UNE AUTRE ? 

2450 CONSOLEO,24,0,0:CLS:SCREEN 7,0,0:AT 
TRB 0,0:LOCATE 5,8,0:COLOR 1,0:PRINT ”BR 
AVO,”:COLOR 2,0:LOCATE 4,9,0:PRINT "VOUS 
AVEZ REUSSI”:LOCATE 2,10,0:COLOR 3,0:PR 
INT "A AVOIR UN SCORE”:LOCATE 2,11,0:COL 
OR 4,0:PRINT USING”DE ###### POINTS”;SC 
2460 LOCATE 25,8,0:COLOR 5,0:PRINT "VOUL 
EZ-VOUS”:LOCATE 25,9,0:COLOR 6,0:PRINT ” 
REJOUER ???":LOCATE 26,10,0:COLOR 7,0:PR 
INT ”<0 ou N)." 

2470 BOXF< 0,20)-<39,24)GRS <74),4,7 
2480 COLOR 1,0:LOCATE 19,12,0 : PRI NT GRS< 
48):LOCATE 18,13,0: PRINT GRS<49)GRS<50)G 
RS<51):LOCATE 17, 14,0: PRINT GRS<52)GRS<5 
3)GRS<54)GRS<55)GRS<56)GRS<57) : LOCATE 16 
,15,0:PRINT GRS<58)GRS<59)GRS<60)GRS<61) 
GRS<62)GRS<63)GRS<64) 

2490 LOCATE 18,16,0:PRINT GRS<65)GRS<66) 
GRS<67):LOCATE 18,17,0:PRINT GR$<68)GRS< 
69)GRS<70):LOCATE 18,18,0:PRINT GRS<71)” 

”GRS<72):LOCATE 18,19,0:PRINT GR$<73) 
2500 COLOR 7,0:LINE<176,104)-<208,96):LI 
NE-<280, 96): LINE-<296,80):LINE-<296,64): 
LINE-<288,56): LINE-<200,56): LINE-<192,64 
): LINE-<192,78): LINE-<168,78) : LINE-<168, 
72):LINE-<160,64) 

?510 LINE-<96,64): LINE-<88,56): LINE-<32, 

56): LINE-<8,80): LINE-<8,96): LINE-<16, 104 

)•LINE-<136,104) : LINE-<152,88): LINE-<160 

,88): LINE-<168,80): LINE-<192,80):LINE-<2 

08,96) 

2520 AS= INKEYS : IF ASO”” THEN 2520 
2530 RESTORE 1100 

2540 READ BS:IF BS=”***” THEN 2530 ELSE 
PLAY BS :AS=INKEYS 

2550 IF AS=”O” THEN RUN ELSE IF AS=”N” T 
HEN CONSOLE 0,24,0, 0: CLS:SCREEN4,6,6:PRI 
NT”AU REVOIR. . . ”: END 
2560 GOTO 2540 

2570 REM MOUVEMENTS DES VAISSEAUX ENNEMI 

2580 IF X>=29 THEN 2050 ELSE IF MONSTRE< 

>1 THEN 2630 „ 

2590 M=INT < RND*5)-1 : N=I NT < RND*3)-1 :BOXF < 
X,Y)-<X+2,Y+2)" ",5,0 :X=X+M:Y=Y+N: IF X<4 
OR X>29 THEN X=X-M 
2600 IF Y<0 OR Y>11 THEN Y=Y-N 
2610 COLOR 5,0:LOCATE X,Y,0:PRINT VAIS 

2620 RETURN 

2630 M=INT<RND*5)-1 : N=INT<RND*3)-1:BOXF< 

X v Y)-<X+2,Y)” ” , 3,0: X=X+M:Y=Y+N: IF X<4 O 

R*X>29 THEN X=X~M 

2640 IF Y<0 OR Y>13 THEN Y=Y-N 

2650 MONS=MONS+l : IF MONS>3 THEN MONS-1 

2660 LOCATE X,Y,0:PRINT VAIS<MONS):RETUR 

N 
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APPUYEZ SUR AC 


THOMSON 

QUIZZI 

ZT — 

amphores qu, jonchent le fond de l’océan. Mais attention, la mort rôde partout! 

20 REM UN JEU PRESENTF pt dcat rr-r- 

EMARTIN PATRICK R Ef?^ n E I987 A (26 ET A 27) R 

30 REM CE JEU FONCTIONNE SUR TOIJTtPt f n 
AMME THOMSOH Elf BASIC lie OU ES BASIC 1 

LEUES OTDITIOT DE WE Hüfx COU 

l. 5; SS; 1 '■ F - 0 - »’ >»“*<■>-*. i, “ 

50 DATA 8,20,34 6*ô i «« /. 0 ^ 

2^^SSS:SriK:S4.*U4W 

K% : Er : fs&?*vr 

». ô: Si: Si: Si: SS: ;*■ “»■ »»: «: 

80 REM * PRESENTATION * 

9 ?wfif CREEN7, °* 0;FOR 1 = 0 T° 199-LINE(0 
: 1 . 1 . 0 : ?= 5 .?Ée”oRB? 4 * 0 6) : SEXT: COTS0LE0 ' 24 

o£ |**c 

NT 150, RAHEEEZ £e P^S DE vlssf AEcf^ 
s POSSIBLES A BORD DE VOTRE SOUS- MARS 


”: PRI NT: PRI NT 
120 LOCATEO, 24 :PRINT” 

T ION POUR JOUER. •* 

îl°ull STRIG<0) THEN CONSOLEO 24 0 0 O-r 
LS:RESTORE1310: GOT0320 ELSE I-Rwn puân’? 

ÜÜ1IS 

.L48SIb RE ' RE ' RE ’ L48D0 ’ L12SIb ' SIb. M. STh 
150 DATA L12MI,MI,FA,SO,SO,FA,FA,MI FA F 

til £i°èib 6 i D A ' SI ’ D0 ’ • do, Labd^Lb 

Slh oî? S I^ L *’ LA ' D0 ' D0 ’ D0 ' L36RE, RE, L13P, 

SIb,SIb,SIb,DO,SI,L48SI,L12MI,MI FA SO S 

p F p' p’pTpVp^' P ' p ’ p ’ p ’ p ’ p ’ p .‘ P P P,’ P 
P,’P,’p.'p,’p' ' ' ' ' ' p ' p ’ p ’ p ’ p ' p 'P' p . P. P 

160 DATA FIN 
170 ' 

180 • 

190 ' 

200 ’ 

210 • 

220 CLS: PRINT :SCREEN7,0,0 

fGOT0230 C$: IF C$= ’’ Fir ’ THEK RESTORE1030 

? 4 ° t£ R J = 1 T ° DER CC$) : A$=JÎI D$ (C$, J , I ) 
0300 IF THEN COLOR, O.-PRIRT" ■' ; : GOT 




260 IF A$=”*” THEN COLORIO:PRINTGRS C4) ; : 
GOT0300 

270 IF AS=”0” THEN COLOR15:PRINTGRS(5); : 
GOT0300 

280 IF AS=”T” THEN COLOR8:PRINTGRS(INT(R 
ND*2)+6); :GOTO300 

290 IF AS=”~”THEN READ NB1,XI, Y1 : NB2=NB1 

+NB:RETURN 

300 NEXT 

310 GOTO 230 

320 ’ 

330 ’ 

340 ’ 

350 1 
360 * 

370 GOSUB 220 
380 FORD=1T03 
390 X=X1:Y=Y1:TT=0: A1 = 0 

400 IF D=1 THENC0L0R7,0 :LOCATE32, 0 : PRINT 
GRS < 8)GRS CIO)” ”GRS(11)GRS C 12 ) 

410 IF D=2 THENCOLOR7,0:L0CATE32, 0: PRINT 

«i «> 

420 IF D=3 THENCOLOR7,0:LOCATE35, 0:PRINT 

If »♦ 

430 H1S C1)=GRS(11)+GRS <12):H1SC0)=GRSC11 
)+ GRSC13 ):H2S(1)=GRS <8)+GRS(10):H2SC0)=G 
RS C9)+GRS(10):HSC1)=H2SC1): HS<0)=H2S<0) 
440 LOCATE4,0:FRINTUSING”####” ; NE 
450 IF NB/100=INT<NB/100) THEN T=T + NB/10 
0-IF T>20 THEN T=20:PLAY”L1205SISI”:LOCA 
TEO,24,0:FORU=l TO T: PRINT" — ; :NEXT: PRIN 
T” " ; : ELSE PLAY”L1205SISI” : LOCATEO, 24. 0: 
FORU=l TO T :PRINT"; :NEXT:PRINT" 

460 H=1-H 

470 H=l-H:LOCATEX,Y,0:PRINTHS(H) 

480 IF NB=NB2 THEN 940 
490 TT=TT+1:IF TT=1000 THEN870 
500 B=STRIG<0):BB=STICK<0>: IF BB THEN Al 
=BB 

510 IF NOTB THEN ON Al GOTO610, 490,640,4 
90,620,490,630,490 

520 IF B THEN IF T>0 AND HS<H)=H1S<H) TH 
EN LOCATEX-1,Y:PRINTGRSC4): PLAY”L202D0MI 
DOMIDOL5DOL7DO”:LOCATEX-1,Y : PR INT” ”:T=T 
-1:LOCATEO, 24,0:FORMU=l TO T:PRINT”; : N 
EXT: PRINT” ” ; :GOT0460 
530 IF B THEN IF T>0 AND HS<H)=H2S(H) TH 
EN L0CATEX+2,Y:PRINTGRS<4): PLAY”L202D0MI 
DOMID0L5D0L7D0” : LOCATEX+2,Y:PRINT” ”:T=T 
-1:LOCATEO,24,0:FORMÜ=1 TO T:PRINT”: N 
EXT: PR INT” ” ; : GOT.O460 
540 ON Al GOT0610,490,640,490,620,490,63 
0, 490 

550 GOTO 460 
560 ’ 

570 ’ 

580 ’ 

590 ’ 

600 ’ 

610 IFSCREEN C X,Y-1)=32 AND SCREEN C X+1, Y- 
1)=32 THENLOCATEX,Y:PRINT” ”:Y=Y-1: GOTO 
460 ELSE 710 

620 IF SCREENCX,Y+l)=32 AND SCREEN<X+1, Y 
+1 ) =32 THEN LOCATEX, Y:PRINT” ”:Y=Y+l:GO 
TO460 ELSE 740 

630 IF SCREEN(X-l, Y)=32 THEN LOCATEX,Y:H 


SCO)=H1S(0) : HSCl)=H1$Cl):PRINT” ”:X-X-l 
: GOTO460 ELSE770 

640 IF SCREENCX+2,Y)=32 THENLOCATEX,Y:HS 
<0)=H2S<0) : HS Cl)=H2$Cl) : PRINT” ”:X=X+1: 
GOTO460 ELSE 790 
650 GOTO 460 
660 * 

670 ’ 

680 * 

690 • 

700 ’ 

710 PT=P0INTCX*8, CY-l)*8+3): IF PT=15 THE 
N LOCATEX, Y-1 : PRINT” ”:NB=NB+1:GOTO440 
720 IFPOINTCCX+1)*8, CY-1)*8+3)=15 THEN L 
OCATEX+1, Y-l : PRINT” ":NB=NB+1:GOTO440 
730 IF POINTCX*8,CY-l)*8+3)=8 OR POINTCC 
X+l)*8,CY-1)*8+3)=1 THEN 870 
740 IFP0INTCX*8, CY+l)*8+3)=15THENL0CATEX 
,Y+l:PRINT” " : NB=NB+1:GOTO44 0 
750 IFPOINTC CX+1)*8, CY+l)*8+3) = 15THENLOC 
ATEX+1,Y+l : PRINT” ”:NB=NB+1:GOT0440 
760 IF P0INTCX*8,CY+l)*8+3)=8 OR POINTCC 
X+l)*8, C Y+1)*8+3)=8THEN87 0 
77 0 IFPOINTC CX-1)*8,Y*8+3)=15THENLOCATEX 
-1,Y:PRINT” ”:NB=NB+1:GOTO440 
780 IFPOINTC CX-1)*8,Y*8 + 3)=8THEN870 
790 IFPOINTC CX+2)*8,Y*8 + 3) = 15THENLOCATEX 
+2,Y:PRINT” " : NB=NB+1:GOTO440 
800 IFPOINTC CX+2)*8,Y*8+3)=8THEN870 
810 GOT0460 
820 ’ 

830 ’ 

840 1 
850 ’ 

860 ’ 

870 FOR XX=1 TO 20 

880 LOCATEX,Y: C0L0R3, 0: PRINTGRSC2^)GRSC2 
3): PLAY”L2P”:LOCATEX,Y: COLOR7,0:H=l-H:PR 
INTHSCH):NEXT 

890 LOCATE4,0:PRINTUSING”####”; NB 

900 LOCATEX,Y :COLOR7 , 0 : PRINTGRS C 5)GRS C 5) 

910 PLAY”L201DOMIDOMIDOL5DOL7DO” 

920 LOCATEX,Y:AS=”0” : PRINT” ”:X=X1:Y-Y1 
: NEXT 

930 GOTO960 

940 CLS:ATTRBO, 1:L0CATE13, 12: SCREEN14,0, 
0:PRINT”Tableau suivant” : PLAY”L20O4PSORE 

MI PP” _ T ^ 

950 ATTRBO,0: CLS: LOCATEO, 1,0:GOSUB220:LO 
CATEO,24,0:FORMU=l TO T:PRINT”:NEXT:P 
RINT” ”; :GOTO390 

960 LOCATE11,24: ATTRB1,0: PRINT”GAME OVER 
»• . 

970 SCREEN,,4:SCREEN,,0:SCREEN,,7:SCREEN 
,,0:SCREEN,,1:SCREEN,,0:SCREEN,,0:IF STR 
IG C 0)=0 THEN 970 
980 RUN 
990 END 

1000 COLOR 7,1:FOR1=1T030:LOCATEX,Y:COLO 
R, ,0:H=l-H:PRINTHSCH) : PLAY”L6P” 

1010'NEXT 

1020"CÜLOR7,0:GOTO870 
1030 DATA 

**************************************** 
* OOOOO-OOOOOOOOOOO-OOOOO* 

s—****************—****************—* 
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*******— 
1050 DATA 


Î040°DA?r-*-0*-**TOOOOOOTOOOOO*-* 1190 DATA 

*--*- __ *~~**--*?*--***********m***--x -* 

D"**************************»*******—* ^I^ÏTr^nn?? 0000000000 * -- ****--*--* 

OOOOOO—-TT—-OOOOOO-* *~*000*T*~»“ TxttTxTxtttTx^-tT^ 

******* 1200 DATA ******** * -*—* 

* T0000-- nn _ *--** * T *—*-- - - 

î:::::::::::—- 

* - TTTT - 

1060 DATA 

************-************ * r~~i *-*--* 

*0000000--- ************ *—* ************—*-*oo*- 

* -t— 

ÎoVd*a*tT-****- ******—* MO*™l****--****--*-*oo* -*oo, 

* 000- TT_ '«'*** -TU**** - 

**********-************ * * tttt ttt-****-0TTTTTTT*TT* 

* -Î!î?!!!î?üî::::??îîü«« îSrSîrî*î:î*******««**^^îSî 

108 0A T A -OOOOOOOO-* 1240 - 150 ' 24 - 17 

T- . ï^************************************ 

W**00000***000***TOOT***000«OOOOÔ*«^ * * *OODnnnn*nnn* * ^^° 000 ************00* 

*****************xxt*xx***x*x*****xx*^ *** 0 °w° 00 * 00 °********************too--x 

1090 DATA M 1 3 i1î ,12 " WWWm ^---^««OOOOOOOOOOOO****»*^^--*** 

1100 DATA DATA 

* , 00 *-000000000000-*-00_ 

... _***—•*• I i 9 fin nA t a ~uuuu * 

data 


*T 

:-*************oo~*****iïïï 

îmMÜ*"”** M * n *******-*-«** :: * 126Ô da?a" *- 0000 

*T *-T—00—T-*_ T * *IT~~~IÎ~***~"****-****000000—* 

■-»«**««—« 

u2o'dItÂ********” tt -*^***^ :: * :: ^** «oo°o-;*— 

*>---;sSz:;--ssî—« 0 °*°-*-— *-*-Ô%-t 

U3Ô'd^A OOTOOTOOOOOOOOOOTOOTOOOT *-* « °* 0O *°-*-*-*0*0,0-* 

*—****-- **° *—*000* 0**0-*-** **n-n*n* 

************-T*00*T ***** *** * * **000000***- _ * 

1140 DATA -************ ic3qa hata -* 

*0—T- 


, T *nn*T* T T. *** *~*-**000000***- 

T*00*T ************ 1290 DATA 


TTTT- 


*— 


* ** - ^ *******************^,^***** _ ^ 

*****************-oo~x*xxxi**x;;;;;~* SîrSïrî’îre^rr******************* 

1150 DATA ~** T -* 1 * 1ft n *-* ’ ’ ’ 


******0000* *00000- 


*00T T 000**000-T- Tnn * 

*-000 T ******** T ooo----* 

î~îr-"??îîfîr**** w *****^««* 

1170 DATA 


************************* ************m* 

* TTOOOOOOOO-O0-00-00-00--00--ïm* 

1180 DATA UU *°°* 


***************** ************X****C)OXTTX 

*- 


1310 DATA 

SSSS^"ïîîî!îîîî!!^^^ 

ssssssssss^^ 

* 000000000000 * 000000000000 *-* 

1320 DATA * 


;SSSSS;SSs;;;«gss5SS; 

*****00000*****- 


* _ 

*--*****o*******************~ **_: ~ï£* 
* * 000 * T * 00000000000000000000 *—* ***??* 


1330 DATA 


* - 


***** 00000 *****- 

*************— 
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_ *********** - 

_ ********* - 

_******* - 

1340 DATA 

_*****- 

_*** - 

1350 DATA ",150,1,2 

**************^*** ) » :: + : *^**** :<::4c1::4c **^^î i ^ 

*00*00000*00000*000000000000*00000*0000* 

*00000*00000*00000*000000*00000*00000*0* 

**************************************** 
1370 DATA *,65,21,2 
1380 DATA 

_******- 

_******T00T******- 

_*******00-00* ****** 

-****00*00000**********00000000********- 
* *00000*00* * * * *0000000* * * * * * *OOT 0T TT TT * * 
1390 DATA 

-****00000*000******00*--00******** 

-*******0000000*0000 *******-- 

_******00*0******- 

_****** 

1400 DATA ",62,2,5 
1410 DATA 


_********** - 

_ ****************** - 

_ ************************** - 

_** --- 

1420 DATA 

_***—00**0**0—*00**0** ***- 

_*** —*0*TT*00—****T**0—***- 

_****--***T****"0*T*TT*0--****- 

_*****—00***T0*~*TT*****—*****- 

- ***** —*0T***00—*****TT*~ ***** 

1430 DATA 

-****—****T***—0*TT*T*0- **** 

_***—00*TT*0*—0**T****—*** 

_***—O**0**00—**0**00* ***- 

_ _ ___ 

_ ************************** - 

1440 DATA 

_ ****************** - 

_ ********** - 

__ 

1450 DATA ", 32,10,5 
3000 DATA FIN 

3005 REM * ADAPTATION 8 COULEURS * 

LES NUMEROS APRES ' SONT CEUX 
DES LIGNES A REMPLACER. 


3010 1 40 CLEAR,,14:RESTORB:ATTRBO.O:LOC 

ATEO,0,0 :CONSOLEO,24,0,0 :CLS: FOR I-0 TO 1 

3: READ A,B,C,D,E,F,G,H:DEFGRSCI>=A,B,C,D 

3020 ’90 N CLS:SCREEN7,0,0:FOR 1=0 TO 199 
?LIHEC0.I>-C319. I>, INT<RND*8>:NEXT:CONSO 
LEO 24.1,1:T=5:RESTORE140 

3030 • 130 IF STRIG <0> THEN CONSOLEO, 24, 

0,0:CLS:RESTORE1310:GOTO320 ELSE I-RND:R 
EAD AS: IF A$=”FIN” THEN RESTORE140: READA 
S-PLAYAS:GOT0130 ELSE PLAYAS:GOT0130 
3040 *260 IF AS-'*” THEN C0L0R2:PRINTGR 

3050 :;G 270 3 ?F AS-'O" THEN C0L0R3:PRINTGR 

!o6o' :G 2lo 3 IF AS="T” THEN C0L0R5:PRINTGR 

$<INT<RND*2>+6> ; :GOTO300 

3070 ’ 710 PT=P0INT<X*8, <Y-l)*8+3) : IF PT 

=3 THEN LOCATEX, Y-l:PRINT” ”:NB=NB+1 : GOT 

3080 * 720 IFP0INT(<X+1)*8,<Y-l)*8+3)=3 

THEN LOCATEX+1, Y-1 : PRINT” ":NB=NB+1:GOTO 

3090 * 730 IF P0INT(X*8,<Y-l>*8+3)=5 OR 
POINTC<X+1)*8,<Y-1>*8+3)=1 THEN 870 
3100 740 IFPOINT<X*8, <Y+l)*8+3)=3THENL 

nCATEX Y+l : PR INT*' ” : NB=NB+1 : GOTO440 
”5 ' 750 IFPOI NT < <X+1 ) *6, CY+1I *B*3> =3T 

HENLOCATEX+1, Y+1 : PR I NT.. : G0T044 

3120 ’ 760 IF P0INT(X*6,(Y+l)*8+3)=5 OR 

POINTC <X+1> *8, (Y+l>*8+3)=5THEN87 0 

3130 ’ 770 IFPOINTC<X-1>*8,Y*8+3)=3THENL 

OCATEX-1,Y:PRINT” ”:NB=NB+1:GOTO440 

3140 • 780 IFP0INT<(X-1)*8,Y*8+3)=5THEN8 

70 

3150 * 790 IFPOINT( (X+2) *8, Y*8+3’> =3THENL 
DCATEX+2,Y:PRINT” ”:NB=NB+1:GOTO440 
3160 ’ 800 IFPOINT((X+2)*8,Y*8+3)=5THEN8 

70 

3170 ’ 940 CLS:ATTRBO,1 : LOCATE13, 12:SCRE 

EN6,0, 0 :PRINT”Tableau suivant”:PLAY”L200 
4PS0REMIPP” 

40 à 80 Initialisation 
90 à 130 Présentation 
140 à 160 Donner musiques 
220 à 310 Affichages tableaux 
370 à 550 Initialisation jeu 
610 à 820 Test collision 
870 à 1020 Jeu 
1030 à 3000 Donner tableaux 
3005 à 3170 Adaptation 8 couleurs 
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THOMSON 


SHIPSOM 


Développé pour le basic 128, Shipsom vous plonge dans un 
labyrinthe complexe. Le joueur, prisonnier en début de partie, part à 
la recherche d’une coupe agique qui seule lui permettra d’atteindre 

l’issue de l’aventure... 


50 REM FAIT SUR UN THOMSON T09+J0YSTICK 
60 REM CE LOGICIEL FONCTIONNE SUR MICRO- 
70 REM ORDINATEUR THOMSON EN BASIC 128 
80 • 

90 CONSOLEO, 24, 0, 0, 0:CLS:SCREEN15,0,0: LO 
CATE20, 17,0:PRINT”PATIENCE. . .” 

100 REM * GRAPHISMES * 

110 CLEAR1000, , 128': DIM NBCK22) : DIM NBM<2 
2): DIM OB<3,22) : DIM MO(3,22):DIM MX<3,22 
>:DIM MY<3,22): DIM 0X<3,22>:DIM OY<3,22> 
:DIM PGR<5): DIM SI(27): DIM S2<27):DIM OU 
V<27): DIM PX(27):DIM PY<27) 

120 DIM MONSTRE%<800) : DIM JOUEUR%<400)•D 
IM OBJET%(900) 

130 DEFGR$ < 0)=128,131,199,245,255,159, 15 
,2:DEFGRS <1) = 1,193,227,175,255,249,240,6 
4:DEFGRS<2)=7,31,62, 61,51,255,247, 7: DEFG 
RS<3>=224,248, 124, 188,204,255,239, 224: DE 
FGR$ < 4)-7, 15,63, 126, 112,96,96,224 :DEFGRS 
(5)=224,240,252,126,14,6,6,7 
140 DEFGRS<6)=64,131,199,245,255,223,142 
,3:DEFGRS<7)=2,193.227,175,255,251,113,1 
92:DEFGRS(8)=7,31,62,125,115,127,247,199 
:DEFGRS<9>=224,248,124,190,206,254,239,2 
27:DEFGRS(10)=7,15,63,126,112,96,96,224: 
DEFGRS<11>=224,240,252,126,14,6,6,7 
150 COLOR9,0:LOCATEO,0,0:PRINTGRS<0>GRS< 

1> GRS <6> GRS <7):LOCATEO, 1,0:COLOR4,0: PRIN 
TGRS <2> GRS <3> GRS <8)GRS <9):LOCATEO,2,0:CO 
LOR1,0:PRINTGRS <4 >GRS <5> GRS<10>GRS <11> 

160 DEFGRS<0)=7,63,125,127,59,28,15,3:DE 
FGR$<1>=224,252, 190,254,220,56,240,192:D 
EFGR$<2>=6,5,61,78*, 223, 31,48,59: DEFGRS<3 
>-96,160,188,114,241,248,12,220:DEFGRS<4 
>=125,126,255,238,85,127,8,60:DEFGRS<5>= 
190,126,255,119,170,254,16,60 
170 DEFGRS <6)=7,63, 121,127,58,24,15,3:DE 
FGRS < 7)-224,252, 158,254,92,24,240,192: DE 
FGRS <8)=7,135,252,14,31,30,61,59:DEFGRS< 
9>-96,33,255,240,248,120,188,220:DEFGRS< 
10)-119,96,255,213,110,127,8,30:DEFGRS<1 
1> =238,6,255,171,118, 254, 16, 120 
180 LOCATE4,0,0:C0L0R13,0:PRINTGRS < 0>GRS 
<1> GRS < 6)GRS < 7 >:LOCATE4,1,0:COLOR11,0 : PR 
INTGRS <2)GRS <3>GRS <8> GRS <9>:LOCATE4 2,0: 

PRINTGRS < 4 > GRS < 5)GRS <10 > GRS <11> 

190 DEFGRS<0)=0, 1,3,4,5,28,30,63:DEFGRS< 
l>-0,128,192,32,160,56,120,252:DEFGRS<2> 
=7,6,28,126,231,127,63,31:DEFGRS<3>=224, 
96,56, 126,231,254,252 i 248 :DEFGRS<4>=8,8, 
16,16,33,33,65,225:DEFGRS<5> = 144, 144, 136 
, 136,4,4,2,7 


200 DEFGRS <6> =0, 1,2,5,6,27,20,63:DEFGRS< 
7>-0,128,64,160,96,216,40,252:DEFGRS<8>= 
7,7,31,127,255, 127,50,31:DEFGRS<9>=224,2 
24,248,254,255,254,76,254:DEFGRS<10>=9! 9 
,17,33,32,64,224,0:DEFGRS<11> = 16, 16,8 4 
132,130,135,128 

210 L0CATE8,0,0:C0L0R8,0:PRINTGRS<0)GRS< 
1> GRS < 6 > GRS < 7 >:LOCATE8, 1,0: PR INTGRS < 2 > GR 
S <3)GRS <8)GRS <9):LOCATE8,2,0:PRINTGRS<4> 
GRS < 5 > GRS <10 > GRS <11> 

220 DEFGRS<0)=0,14,59,127,127,248,207,13 
1:DEFGRS<1>=0,112,220,254,254,31,243,193 
:DEFGRS <2)=3,12,20,37,37,37,68,68: DEFGRS 
<3>-192, 112,168,40,40,40,168,168: DEFGRS< 
4)-66,98,82,82,85,149,145,145:DEFGRS<5)= 
168,168,36,68,76,82,82,18 
230 DEFGRS<6)=0,14,59,126,127,248,142,99 
:DEFGRS<7>=0,112,220, 126,254,31, 113, 198; 
DEFGRS < 8 > =3,6,25,49,41,36,34,66:DEFGRS < 9 
>-192,112,72,72,68,68,164,138:DEFGRS<10> 
-66,97,81,83,84, 132,138, 146:DEFGRS <11> =8 
2,82,22,37,165,161,177,169 
240 LOCATE12,0,0:COLOR1,0:PRINTGRS<0>GRS 
<1>GRS <6> GRS <7>:LOCATE12,1,0:COLOR2,0:PR 
INTGRS<2>GRS<3)GRS<8>GRS<9>:L0CATE12,2,0 
: PRINTGRS < 4 > GRS < 5 > GRS <10 > GRS <11> 

250 DEFGRS<0> = 1,7,31,63, 103, 127, 15,61:DE 
FGRS<1>-252,254,254,252,248,240,192,192: 
DEFGRS<2> = 1,3,3,63,39,71,15,15:DEFGRS <3> 
-224,240,240,240,248,248,248,248: DEFGRS< 

4>-31,31,61,57,96,96,112,241:DEFGRS<5)=2 
48,252,252,252,220,206,231,221 
260 DEFGRS<6>=1,7,31,63,103, 127,63, 1 : DEF 
GRS <7> -192,248, 252,252-, 248,240,224, 192: D 
EFGRS < 8)=1,3,3,31,39,39, 15, 15:DEFGRS<9> = 
224,240,240,240,248,248,248,248:DEFGRS<1 
0>=31,31,61,121,112,57,28,61:DEFGRS<11>= 
248,252,252,252,222,143,224,224 
270 DEFGRS<12)=63, 127, 127,63,31,15,3,3:D 
EFGRS<13> = 128,224,248,252,230, 254,240, 18 
8:DEFGRS<14)=7,15,15,15,31,31,31,31:DEFG 
RS <15) = 128,192,192,252,228,226,240,240:D 
EFGRS<16)-31,63,63,63,59,115,231,7:DEFGR 
S<17)=248,248,188,156,6,6,14,143 
280 DEFGRS<18)=3,31,63,63,31,15, 7,3: DEFG 
RS<19)=128,224,248,252,230,254,252, 128:D 
EFGRS<20)-7,15,15,15,31,31,31,31:DEFGRS< 
21> = 128,192,192,248,228,228,240, 240:DEFG 
RS<22>=31,63,63,63,123,241,7,7:DEFGRS<23 
> =248,248,188,158,14,156,56,188 
290 LOCATE16,0,0:C0L0R15,0:PRINTGRS < 0)GR 
S <1> GRS < 6 > GRS < 7 > GRS <12 >GRS <13 > GRS <18 > GRS 


i 
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<19):L0CATE16,1,0:COLORIO,0:PRINTGRS(2)G 
RS(3)GRS<8)GRS<9)GRS(14)GRS(15)GRS<20)GR 
S <21) : LOCATE16,2,0:PRINTGRS<4)GRS(5)GRS< 
10)GRS(11)GRS(16)GRS <17)GRS <22)GRS(23) 

300 DEFGRS < 0)=0,0,0,0,0,0,0,8:DEFGRS <1) = 
0,0,0,0,0,0,0,32:DEFGRS<2)=28,62,127,255 
,255,255,127,63:DEFGRS<3)=112,248,252,25 
4,254,254,252,248:DEFGRS<4)=31,15,7,3,1, 
0,0,0:DEFGRS(5)=240,224,192,128,0,0,0,0 
310 COLOR1,0 :LOCATE24,0,0 : PRINTGRS < 0)GRS 
<1):LOCATE24,1,0:PRINTGRS(2)GRS<3):LOCAT 
E24,2,0:PRINTGRS<4)GRS(5) 

320 DEFGRS<0)=0,7,4,3,13,9,6,1:DEFGRS(1) 
=1^2,48,168,200,112,200,72,176:DEFGRS(2) 
=0,0,0,0,0,1,1,1:DEFGRS<3)=128,128,128,1 
28,128,0,0,0:DEFGRS<4)=0,3,2,1,0,0,0,0:D 
EFGRS <5) = 128,128,64,220,100,72,112, 128 
330 L0CATE26,0,0:C0L0R7,0:PRINTGRS<0)GRS 
<1):LOCATE26,1,0:COLOR2,0 : PRINTGRS < 2)GRS 
<3):LOCATE26,2,0:PRINTGRS(4)GRS<5) 

34 0 DEFGRS < 0)=3,3,2,2,4,4,8,8:DEFGRS<1)- 
192,192,64,64,32,32,16,16:DEFGRS<2)=16,1 
6,32,63,46,46,53,53:DEFGRS<3>=8,8,4,252, 
164,236,164, 172 :DEFGRS<4)=59,63,32,32,32 
,32,32,31:DEFGRS(5)=164,252,4,4,4,4,4,24 
8 

350 LOCATE28,0,0:C0L0R14,0 : PRINTGRS < 0)GR 
S <1):LOCATE28,1,0: PRINTGRS < 2)GRS < 3):LOCA 
TE28,2,0:PRINTGRS(4)GRS<5) 

360 DEFGRS<0)=0,0,3,124,128,224,255,255: 
DEFGRS<1)=0,0,192,62,1,7,255,255:DEFGRS< 
2)=255,255,127,63,15,3,1,1:DEFGRS<3)=255 
,255,254,252,240,192,128,128:DEFGRS<4)=1 
,1,1,3,7,15,31,63:DEFGRS<5>=128,128,128, 

192.224.240.248.252 

370 LOCATE30,0,0:COLOR13,0:PRINTGRS<0)GR 
S<1) : LOCATE30, 1., 0: PR I NTGRS < 2 ) GRS <3 ) : LOCA 
TE30,2,0:PRINTGRS<4)GRS<5) 

380 DEFGRS<0)=0,0,0,0,34,9,25,5:DEFGRS<1 
)=0,0,0,0,32,32,33,196:DEFGRS<2)=7,229, 1 
7,17,127,136,28,96:DEFGRS<3)=6,56,17,254 
, 136, 136, 167,224:DEFGRS<4)=35,132,4,4,0, 
0,0,0:DEFGRS<5)=160, 152, 144,68,O,0,0,0 
390 COLOR6,0 :LOCATE32,0,0 : PR INTGRS < 0)GRS 
<1):LOCATE32, 1,0:PR INTGRS(2)GRS<3):LOCAT 
E32,2,0:PRINTGRS<4)GRS<5) 

400 DEFGRS(0)=8,8,62,8,8, 121,71,65:DEFGR 
$<1)=16,16,124,16,16,158,226,130:DEFGRS< 
2)=33,24,6,1, 1,97,191,97:DEFGRS<3)=132,2 
4,96, 128, 128, 134,253,134:DEFGRS<4) = 1, 1, 1 
,1,1,15,31,63:DEFGRS<5)=128,128,128,128, 

128.240.248.252 

410 COLOR3,0 :LQCATE34,0,0 : PRINTGRS < 0)GRS 
(1):L0CATE34, 1,0 :PRINTGRS<2)GRS<3):LOCAT 
E34,2,0:PRINTGRS(4)GRS<5) 

420 DEFGRS<0)=0,0,0,0,3,5,1,17: DEFGRS<1) 
=0,0,0,0,128,64,0,16:DEFGRS(2)=9,71,133, 
255,133,71,9,17:DEFGRS(3)=32,196,66,254, 
66,196,32,16:DEFGRS<4)=1,5,3,0,0,0,0,0:D 
EFGRS(5)=0,64,128,0,0,0,0,0 
430 LOCATE36,0,0:COLOR7,0:PRINTGRS<0)GRS 
<1) : LOCATE36, 1,0 : PRINTGRS(2 > GRS < 3):LOCAT 
E36,2,0:PRINTGRS<4)GRS<5) 

440 DEFGRS<0)=0,0,1,2,2,1,1,1:DEFGRS<1>- 
0,0,0,128,128,4,138,138:DEFGRS<2)=3,35,8 
3,83.39,39,119,115:DEFGRS<3)=196,196,142 


142,158,158,222,206:DEFGRS<4)=123,123,2 
51,21,255,255,255,255:DEFGRS<5)=206,238, 
239,255,255,255,255,255 

450 LOCATE38,0,0:COLOR2,0 : PRINTGRS < 0)GRS 
<1):LOCATE38, 1,0: PRINTGRS(2)GRS<3):LOCAT 
E38,2,0:PR INTGRS<4)GRS<5) 

460 FORI=0TO3:GET(1*4,0)-<1*4+1,2),MONST 
RE%<100*1+100):GET(1*4+2, 0)-<I*4+3,2) , MO 
NSTRE%(500+100*I) : NEXT 

470 FOR 1=1 T04:GET<1*2+14,0)-(1*2+15,2) 

,JOUEUR%<100*1):NEXT 

480 FOR 1=1 TO 8:GET(1*2+22,0)-(1*2+23,2 
),OBJET%(100*1):NEXT 

490 DEFGRS(0)=0,0,0, 0,3, 12,48,192:DEFGRS 
(1)=0,0,0,0,192,48,12,3:DEFGRS(2)=128,19 
1,255,63,63,63,63,31:DEFGRS < 3)=1,253,255 
,252,252,252,252,248:DEFGRS(4)=31,31,31, 
31,31,31,31,15:DEFGRS(5)=248,248,248,248 
,248,248,248,240 

500 LOCATE38,0,0:C0L0R6, 0: PRINTGRS(0)GRS 

(1) :LOCATE38,1,0:COLOR4, 0 : PRINTGRS(2)GRS 
(3):L0CATE38,2,0:PRINTGRS(4)GRS(5):GET(3 
8,0)-(39,2),OBJET%(900) 

510 DIM MURS(7): DIM PIC$(7):DIM VERS<4): 
AS=CHRS(8):BS=CHRS <10) : DIM GRILLES(2) 

520 DEFGRS(0)=31,16,32,96, 128,240,136, 13 
2: DEFGRS ( 1)=3,226,29-, 3, 0, 32,80,72: DEFGRS 

(2) =255, 1, 129,65, 194, 162, 162, 162: DEFGRS ( 
3) = 15,8,6,241,136,132,132,130 :DEFGRS(4) = 
224,63,0,0,128,64,64,33 

530 DEFGRS(5)=0,225,27, 10,7,4,248,31:DEF 
GRS(6)=0,252,3,1,1, 193,34,33:DEFGRS(7)-1 
28,128,248,142,129,129,192,127:DEFGRS(8) 
=72,71,222,224,64,64,128,255:DEFGRS(9)-1 
62,50,202,42,41,81,80, 159 

54 0 DEFGRS<10)=129, 129,128, 128,96,24,135 
,0:DEFGRS(11)=18,13,158,160,192,128,96,3 
1 :DEFGRS(12)=97,128, 0, 0, 0, 0, 1,254 :DEFGRS 
(13) = 17, 145, 145,145, 146, 140,0,0 
550 FOR 1 = 0 TO 6 : MURS(I)=GRS(I)+AS+BS + GR 
S(1+7):NEXT 

560 DEFGRS(20)=0,0,0,0,0,65,65,97 :DEFGRS 
(21)=0, 128, 132,206,206, 199,231,231 :DEFGR 
S(22)=0,4,4,12, 12,12,12, 14: DEFGRS(23)-0, 
0, 16,48,56,60,62,62:DEFGRS(24)=0,0,0, 12, 
30,31,31,31 

570 DEFGRS(25)=0,0, 0,24,60,60,60,60:DEFG 
RS(26>=0,0,0,4,12,28,62,62:DEFGRS<27)=99 
,99,103, 103,231,247,247,255:DEFGRS(28)-2 
31,231,231,227,227,231,255,255:DEFGRS(29 
)=30,31,31,31,63,191,255,255 
580 DEFGRS(30)=31,31,15,131,143,255,255, 
255:DEFGRS(31)=31,63,63, 127,255,255,255, 
255:DEFGRS(32)=60,60,60,158,142,142,255, 
255:DEFGRS(33)=126,254,254,255,255,255,2 
55,255 

590 FOR 1=0 TO 6:PICS(I)=GRS<I+20)+AS+BS 
+GRSC1+27):NEXT 

600 DEFGRS<40)=0,3,14,54,118,182,182,182 
:DEFGRS(41)=192,240,216,220,219,219,219, 
219:DEFGRS(42)=182,182,255,159,255,182,1 
82,182:DEFGRS(43)=219,219,255,255,255,21 
9,219,219:DEFGRS<44)=182,182,182,182,182 
,182,182,255 

610 DEFGRS(45)=219,219,219,219,219,219,2 
19,255:DEFGRS(46)=0, 192, 112, 108, 110, 109, 
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1°9 109:DEFGRs(47)=3,15,27,59,219,219,21 
;^ 9 ^ EFGRS(4ô) = 109 ’ 109,255,249,255, 109 
,109, 109:DEFGRS( 49 )=219, 219,255, 255,255, 
219,219,219 

no°o DEFGR$(50) = 109 ’ 109 ’ 109 > 109 »109,109, 1 
09 255:DEFGRS(51)=219,219,219,219,219,21 

9.219.255 

630 GRILLE$(1) =GRs<40)+GRS ( 41)+as+as+bs+ 
GRS(42)+GRS(43)+AS+A$+B$+GR$(44)+GR$(45) 
640 GRILLES(2)=GR$(47)+GR$(46)+AS+AS+BS+ 
GRS(49)+GRS(48)+AS+AS+BS+GRS(51)+GRS(50) 
650 DEFGRS(34)=96,251,255, 255,255,255,25 
;«2 5 i“? FGRS ( 35 > =236 » 255 * 255 • 255, 255, 255 
’Z ZL 255:DEFGR$ <36)=56,255, 255,255,255,2 

•' 255 •' DEFGR * <37) =6, 255,255,255, 255, 

255.255.255 

660 VERS(0)=GRS(34): VERS(1)=GRS(35): VERS 
(2)-GRS(36): VERS(3)=GRS(37) 

670 DEFGRS(60)= 0,0,0,0,0, 0,1,3:DEFGRS(61 
)-0,0,0,3,7,231,242,240 :DEFGRS(62)=0,0, 1 
I 92,24 0,248,254,61,62:DEFGRS(63)=1, 113,11 
3, 123,63,62,28,14 :DEFGRS(64)=192, 224.240 
,112,112,96,192,0 

rv«,^- R$(65)=0 ' 15 • 31.31,25, 19,7, 14: DEF 
GRS(66)-i24,62,191,241,248, 254,63, 63:DEF 
GRS(67)-156,60,31,31,15, 15,31,30 :DEFGRS( 

68) -14,62,252,252,248,255,195,15:DEFGRS( 

69) -64, 160,224,64,248,220, 204, 140 
3??_ DEFGR$(70)=14,14 ,7,0,0,0,0,0:DEFGRS( 

71)-31,15,15,15,7,3,3,3:DEFGRS(72)=60,60 

, 120,248,240,224,224,224 :DEFGRS(73)=28,2 

?;^ 0,0,0 ’ 0;DEFGRS<74)=0 *°’ 1 > 7 > i5,3i, 

63,127 

700 DEFGK*C75)=7,127,255,255,255,255,255 

'■ÂJ Î?F™^I 6 ’ =224 ’ 255 .255,255,255,255, 
255, 255:DEFGRS(77)=224,252,255,255,255,2 
55,255,255:DEFGRS(78)=0,0,1, 131 231 255 

255 255 :DEFGRS(79)=0, 0,224,240,240,252?2 

O O » oüO 

710 DEFGRS(80)=16, 120, 120, 120,126, 127,25 
5, 255 

720 REM * VARIABLES * 

730 CLS:SCREEN15, 0,0: LOCATE20, 17, 0- PR INT 
"PATIENCE.. 

740 SAL=1:X=7:Y=1;OBM=0:TPS=0:NRJ=0-XY=0 
: JOUE=300 U 

750 RESTORE760:FOR 1 = 1 TO 22:NBO(I)=3•rf 
AD NBM(I): FOR J = 1 TO 3:READ OB(J, I)•r E AD 
OX<J , I):READ 0Y<J, I):NEXT:FOR J = l T 0 »B 
*< n i REA ? ? 0<J ’ I):READ MX<J.H:READ MY(J 

760 DATA 3,1,5,0,5,25,0,6,16,9,1,23 9 2 
37,7,3,5,6 ’ 

? 26 3 ATA 2 ’ 2 ' 19 ' 8,3 ' 31 ’ 0 ' 7 ' 31 . 9 . 2. 17, 7, 4 

i^oT^ 2,25 ' 0 ' 8 ' 25 ' 7 ' 9 ' 18 - 7 ' 3 ’ 4 ’ 5 ’!. 

^° 0 “ A7A â- 1 . 1 !-».».®». 0.7.20,8,4. o.B. 2 . 

^s,?^, 2 ' 3,13 ' 9,8 ' 0 ' 9,9 ’ 33 ’ 9 ' 4 ' 11 - 0 ’ 3 . 

810 DATA 1.2,6,3,6,38,0,7,17,0,1,0 9 
820 DATA 1,1,26,7,5,10,9,8,18,9,2 33 o 
830 DATA 2. 2,33, 4, 6, 14, 3, 9,3. O, 3,26^1, 

840 DATA 2.3,38,8,7,32,0,8,14,7,3,24,9,2 


I .7,7 

[ SSO^DATA 2.1,31,0,5,20,5,9,36,9,4,0,7,1, 

Îe'of^sfè 3 ’ 34 ’ 8 ' 5 ' 38 ' 8 ’ 6 ’ 30 ' 8 ’ 1 ' 0 ' 7 ’ 4 . 

379 d ATA 1.2,12,0,7,38,5,8,2,9,2,28 0 
880 DATA 2,1,6,3,5,0,0,9,30,0,3,27,2,1,9 

®16,9 ATA ^^’ 34 ’ 9 ’ 8 * 32 » 9,7,10,9,3,16,3,2 

fefs^gf ? 2 ' 24 ’ 5,8,23 ' 0,9 ' 12 ' 7 ’ 4 ' 14 ' 0 . 3 

SS ^ lf ^ lg ’ 1 ’ 15 ’ 0 ' 5 ’ 34 ’ 0,6 ’ 19 ' 7 ' 1 - 5 ' 0 ' 4 ' 
920 DATA 1,3,0,0,5,22,7,7,38,0,3,28 2 

930 DATA 2,2,34, 5,8,22, 5,9, 36, 5, 3, 2, 7,1, 
32°6 DATA 2l !• 10.3.6.0,0,7,38, 4, 4, 15, 5, 2, 
4 5 6, 1 A 33,6’ 2 ' 3 ' 5 ’ 4 ' 5,8 ’ 5 ' 38,8 ' 4 ’ l 4 ’ 3 .2 

9 0 ° 2 D 3 Îfo 3 ’ 3 ' 18 ’ 0 ' 7 ’ 9 ' 5,8,0,5>1 ' 8 ' 0 - 4 ’ 20 

970 DATA 1.2,23,9,6,38,5,9,33,0,3,24 0 
REA 0 D F OUVU>:Sxf :READ S1 ”> : ^DS 2 <n: 
990 DATAI, 2, 0, 1,3, l, 2, 4,2, 2,5 2 5 6 0 3 
6 q°Î n * n ' i 1 ; 3 ;?’ 2 ’ 7 ’ 8, °’ 7 ’ 9 ’ 1 X 9 ! 2,’7.’ 10, 0 

13 ’ 15’ î?’ W'I' 11 ’ 12 ’ 2, 11 » 13 ’ °* 13 • !6. 0, 

13, 15, 1. 13, 14,2, 14. 16. 0. 15, 17, 0, 17, 18, 0, 
3; 9 ’î; 1 9 . 20 . 2 . 20 , 21 , 0 , 20 , 22 , 0 , 21 , 22 , 1 

im?-n E n G n S ol° 0>=0, °’ °’ 1 ' 2 » 4 ' 4 * 2: DEFGRS ( 
°* 241 ’ 17 ’ 17 ’ 31.17:DEFGRS(102)=0 
.0,0,92,18,82,82,92:DEFGRS(103)=0,0,0.62 

43 9 Î09 2 161 6, 72: DEFGR$<104; > =0 . 1. 1,35,35,2 

1010 DEFGRS(105)=1,1,2,124,64.64,127 0:D 

17 ' 17 ’ 17 ‘°*°’ 255 * 0: DEFGRS( 

107) 80,80,80,95,0,0,255,0:DEFGRS<108)=4 
0,36,68,131,0,0,255,0:DEFGRS(109)=161.16 
1»161*33,1,1,255,0 

1 = 1 T0 27: READ PX(I):READ PY(I) 

: NEXT 

1 ?fi 0 7 D tî A n 2 iS' 36 ’°’ 36 * 9 « 2 ,0* 28,5,0,0,7,0 
’ 3G ’ oi 28, 9,2,9, 2» 0,18,9, 38, 0, 32, 0, 2 

p' 9 ’ 2 ’ 3 ’ 2 » 9 » 36.5,2,7,2,7,36, 0, 

2,0, 15, 0, 36, 0 

1040 REM * PRESENTATION * 

1050 CLS:SCREEN8,0,0: ATTRB1,0 : LOCATE3, 1, 

0 :COLOR4,0 : PRI NT”Premar"; : C0L0R7,0 : PRI NT 
tin P" ; : COLOR1,0: PRINT"atrick” 

Jro*^A CATE15 ’ 7 ' ° : C0L0R 1 5 * 0: PRI NTGRS (100 

) GRS <101) GRS (102) GRS (103) GRS (104):LOCATE 
15,8,0:PR INTGRS(105)GRS(106)GRS(107)GRS< 

108) GRS(109) 

J 970 ATTRB0 -0:LOCATE 16,4,0:C0L0R8,0: PRI 
NT"présente” 

1080 AS(1)="tel est.le nom du nouveau 
grand jeu ducinquante troisième siecle. 
Vous etes lepremier participant et vous 
ne savez pasce qui vous attend. La seul 
e chose quevous sachiez est que vous de 
vrez trouverune coupe et sortir avec ell 
s d’un laby-” 

1090 AS(2)="rinthe peuple de monstres. 

Le seul prixest dix fois votre poids en 
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uranium ... Alors, bonne chance.” 

1100 RESTORE1170 :LOCATEO,11,0:COLOR6,8 : P 
RïNTAS( 1); AS (2) 

1110 IF INKEYSO”” THEN 1110 
1120 FOR CC=1 TO 2:LOCATE 0,11,0:FOR 1 = 1 
TO 2:FOR J = 1 TO LEN<AS<I)):COLOR I NT(RN 
D*15)+1,0 

1130 ZS=MIDS(AS(I), J, 1): IF CC=1 THEN PRI 
NT ZS; ELSE PRINT CHRS(14)CHRS<ASC<ZS))C 
Hrs(15)■ 

1140 READ BS:IF BS=”***” THEN RESTORE117 

0: RE AD BS _ ^ 

1150 PLAY BS: RES=INKEYS: IF RBSO"" OR ST 

RIG(0) THEN 1210 

1160 NEXT J :NEXT I :NEXT CC:GOTO 1120 

1170 DATA A0,T5,04,L24, MI, L12,SO,LA,SI,O 
5,MI,L24,04,SI,MI,L12,SO,LA,L24,SI,SI,L1 
2, MI, MI, SO, LA, SI, 05, MI, 04, SI, 05, MI, 04 MI 
,MI,SO,LA,L48,SI,05,L24,DO,04,L12,LA,05, 
DO, 04, SI, SO, L24, MI, 05, DO, L12, RE, DO, 04, L2 

4, SI, SI, L12,05, DO, DO, 04, LA, 05, DO, 04, SI, S 

1180 DATA L24,MI,SO,L12,LA, SO,L48,FA#,03 

,L24,MI,L12,FA,SO,LA,04, MI, 03, L24,SI,MI, 
L12,FA,SO,L24,LA,LA,L12, MI,MI,FA,SO,LA,O 
4,MI,03,L24,SI,L12,MI,MI, FA, SO,L48,LA,L2 
4,MI,L12,SO,SI,L48, LA#, L12,04,MI,RE#,LA, 
SO#,05,DO#,04,SI#,05,FA#,FA,MI,RE#,RE,DO 

1190 DATA DO, 04,SI , SIb, LA, SO#,SO,FA#,FA, 

MI, RE#, RE,RE#,L24,MI,L12,SO,LA,SI, 05, MI, 
04,L24,SI,MI,L12,SO,LA, L24,SI,SI,L12,MI, 
MI,SO,LA,SI,05,MI,04,SI, 05, MI,04.MI,MI,S 

O, LA,L48,SI,L24,05,DO,L12,04,LA,05, DO, 04 
SI SO 

1200 DATA L24,MI,05,DO, L12, RE,DO,04,L24, 
SI, 05,MI,04,LA,L12, SI,LA,SO, SI,L24,MI,FA 
#,L12,SO,FA,MI,05,SO,03, L24, MI,L1,P,P»P. 

P, P, P, P, P, P, P, P, P. P. P. p » p > P» P ’ P ' 
P,P,P,P,P,P.P. P ’ P ' P ’ P ’ P ' P ’ P ’ P,P,P,P ’ *** 
1210 REM * DESSIN DES DECORS * 

1220 CONSOLEO,24:CLS:SCREEN15,0,0:LOCATE 
15,22,0:ATTRB1,0:PRINTGRS(100)GRS<101)GR 
S(102)GRS(103)GRS(104):LOCATE15,23,0:PRI 
NTGRS <105)GRS(106)GRS(107)GRS(108)GRS(10 
9):ATTRBO,0 
1230 GOSUB 1610 

1240 ON SAL GOSUB 1960,2060,2140,2240,23 
40,2390,2470,2530,2600, 2670,2730, 2780,28 
50,2920,2970,3030,3090,3150,3220,3280,33 

40,3390 „ _ 

1250 IF NBO(SAL)>0 THEN FOR 1 = 1 TO NBOCS 
AL): PUT < OX(I,SAL),OY(I, SAL)) , OBJ ET%( OB ( I 
,SAL)#100):NEXT 

1260 IF NBM<SAL)>0 THEN I=NBM<SAL): PUT(M 
X ( I, SAL ) , MY < I, SAL ) ) , MON&TRE7# < MO < I, SAL ) * 1 
00+YX*400) 

1270 IF OBM> 0 THEN PUT(1,15),OBJET%COBM* 
100 ) 

1280 COLOR,0:GOTO 1290 
1290 REM * JEU * 

1300 GOSUB 1350 

1310 IF STRIG(O) THEN GOSUB 1770 
1320 IF NBM(SAL)>0 THEN GOSUB 1510 
1330 GOSUB 1930 
1340 GOTO 1290 


1350 REM * MOUVEMENTS DU JOUEUR * 

1360 C=STICK< 0): JOU=-(C=2 OR C=3 OR C-4) 

+ <C=8 OR C=7 OR C=6) : B=Y-<C=6 OR C-5 OR 
C=4) + (C=8 OR C=1 OR C=2) : A=X+JOU: IF STRI 
G<0)=0 AND C=0 THEN B=B+1 
1370 IF A<0 OR A>38 OR B<0 OR B>9 THEN R 

ETURN 

1380 BOX(X,Y) - (X+l,Y+2)” ” 

1390 FOR I=A TO A+l:FOR J=B TO B+2:IF SC 
REEN<I,J)=32 THEN NEXT:NEXT ELSE GOSUB14 

30 

1400 X=A: Y=B: IF COO THEN IF JOU=l THEN 
JOUE=300 ELSE JOUE=100 

1410 XY=1-XY:PUT(X,Y) , JOUEUR%(JOUE+XY*10 
0) 

1430 IF POINT(A*8+8, B*8+31)=8 THEN GOSUB 

1440 FOR PO=l TO NBP: IF X=PX.(POR(PO) ) AN 
D Y=PY(POR(PO)) THEN IF (POINT(X*8-l, Y*8 
+12)=5 AND JOUE=100) OR <JOUE=300 AND PO 
INT(X*8+16,Y*8+12)=5) THEN 1500 
1450 NEXT PO „ 

1460 IF SAL=1 AND X=5 AND Y=0 AND OBM=4 

THEN 1870 

1470 A=X:B=Y:RETURN 

1480 IF SAL=S1<PORCPO)) THEN SAL=S2<POR( 
PO)) ELSE IF SAL=S2 < POR < PO)) THEN JOUE=4 
OO-JOUE:SAL=S1(POR(PO)) ELSE RETURN 
1490 GOTO 1210 

1500 IF OUV(PORCPO))=OBM THEN OBM-0:OUV< 
POR<PO))=0:GOTO 1480 ELSE IF OUV<POR<PO) 

)=0 THEN 1480 ELSE 1460 

1510 REM * MOUVEMENTS DES MONSTRES * 

1520 I=NBM(SAL) 

1530 YX=1-YX:BOX<MX<I, SAL),MY<I,SAL))-<M 
X ( I,SAL) +1,MY(I,SAL)+2)” ” 

1540 A=MX(I.SAL)-<MX<I, SAL)<X) + <MX<I.SAL 
)>X):B=MY(I,SAL)-< MY CI, SAL) < Y > + ( MY <I,SAL 

1550 FOR II=A TO A+l:FOR J=E TO B+2:IF S 
CREENdI, J) =32 THEN NEXTJ:NEXTII ELSE 15 
90 

1560 MX(I,SAL)=A:MY<I , SAL)=B 

1570 PUT<MX< I, SAL) , MY C I , SAL) ) , MONSTRE/£(M 

OU , SAL) *100+YX*400) 

1580 RETURN ^ 

1590 IF A>X-2 AND B>Y~3 AND A<X+2 AND B< 
Y+3 THEN GOSUB 1610:GOTO 1560 
1600 A=MX<I,SAL):B=MY<I, SAL):GOTO1560 
1610 REM * PERTE D’ENERGIE * 

1620 BOXF<8,104)-<NRJ+8,112),-9: BOXF-(31 
2,104),9 

1630 IF NRJ >=303 THEN 1710 
; 1640 NRJ=NRJ+1:RETURN 

1650 REM * MORT DES MONSTRES * 

1660 DEFGRS(120) = 1,1,3,3, 183,71, 167, 151: 
DEFGRS(121)=0,0,128,128,218,196,202,210: 
DEFGRS(122)=7,63, 127,255,127,63,7, 151 : DE 
FGRS(123) = 192,248,252,254,252,248,192,21 
0:DEFGRS(124) = 167,71, 183,3,3,1,1,0:DEFGR 
S(1255=202,196,218,128,128,0, 0, 0 
1670 K=NBM(SAL):A=MX(K, SAL) : B-MY(K,SAL) 
1680 COLOR 1,0:FOR 1=0 TO 4: PUT(A, B),MON 
STRE%(100*MO(K,SAL)+400*YX) : YX=1-YX: PLAY 
"TlA0L12O5DOMISOLA” 
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1690 LOCATE A,B,0:PRINT GRS <120)GRS(121) 

:LOCATE A, B+l,0:PRINT GRS(122)GRS(123):L 
OCATE A,B+2,0:PRINT GRS<124)GRS<125):PLA 
Y”SILA04D0”:NEXT 

1700 NBM(SAL) =NBM: BOX(A, B>- (A+l, B+2)” 
OBM= 0 : BOX Cl, 15)-<2, 18)*’ ”: GOTO 1290 
1710 REM X PERDU: MORT DU JOUEUR * 

1720 DEFGRS <120)=1, 1,3,3,183,71,167, 151 : 
DEFGRS(121)=0,0,128,128,218,196, 202,210: 
DEFGRS(122)=7,63,127,255,127,63,7,151:DE 
FGRS(123)=192,248,252, 254,252,248, 192,21 
0:DEFGRS(124) = 167,71, 183,3,3, 1, 1,0:DEFGR 
S <125)=202, 196,218,128,128,0,0,0 
1730 FOR 1=0 TO 15:PUT(X,Y),JOUEURS(JOUE 
+100XXY):XY=1-XY:PLAY”A0T4O4L12DOREMIFAS 
I”:COLORINT(RNDX15)+1,0:LOCATEX, Y,0:PRIN 
TGRS(120)GRS(121):LOCATEX, Y+l, 0: PRINTGRS 
(122)GRS(123):LOCATEX, Y+2, 0: PRINTGRS(124 
)GRS(125): PLAY”T2DOLADOLA” : NEXT 
1740 CONSOLEO,24,0,0,0:CLS:C0L0R15,0:PRI 
NT”Vous avez échoué: vous avez donc péri 
”: PLAY”A0T5O4L96REL72REL24REL96REL72FAL 
24MIL72MIL24REL72REL24DO#L96RE”:COLOR6,0 
:PRINT”Voulez-vous essayer une nouvelle 
fois ?” 

1750 A$=INPUT$(1): IF AS = ”0” THEN 720 ELS 
E IF ASC>"N” THEN 1750 

1760 CLS: SCREEN4,6,6: PRINT”Au revoir et 

a bientôt. . . ”; END 

1770 REM X APPUIE SUR ACTION X 

1780 FOR 1=1 TO NBO(SAL):A=OX(I,SAL):B=0 

Y(I,SAL) 

1790 IF (Y=B AND (X=A-2 OR X=A+2)) OR (X 

7^ <Y=B-3 OR Y=B+3)) THEN OM=OB(I,SA 

L) ELSE NEXT:GOTO 1830 

1800 OB(I,SAL)=OBM:OBM=OM: IF OB(I SAL)=0 
THEN BOX ( OX < I, SAL ) , OY C I, SAL > ) - ( OX ( I SAL 

» 1 n ,0T<1,SAL>+2> " " :G0T0 182G ELSE IF O 
BM-0 THEN BOX(l,15)-(2,18)” » 

XOB ( ! P SAL ( 1 ’ SAL 5 * °' Y ( 1 * SAL ^> > . OBJ ET7, (100 


n*fooTo T<1 ’ 15 > ’O bj ET%(OBMX100): PLAY”A2T2 
F A F A FA 1 T 1 M? S 1S0S1S0S1S0S1S0L ALASOSOSOF A 

nn» A t MIMIRERERER EREREDODODODODODO 

DO : IF OBM=3 THEN 1860 ELSE RETURN 
GOT01650 NBM<SAL>> ° AND 0BM=5 THEN NBM=0: 

B=M?(Ï7saL>' SAL>;C=M0<1 ' SAL>1A=MX<1 * SAL) ; 

AND ° BM=7) 0R <C = 2 AND OBM 
6) OR (C-3 AND OBM=9) OR (C=4 AND 0BM=8 
)) AND X>A-2 AND XCA+2 AND Y<B+3 AND Y>B 

TURN HEN NBM=NBM<SAL) ~ 1;G 0T0 1650 ELSE RE 

EMTnnppÏ7« ; fnorf 0 ' PLAY ”T1L12A004DOREMIDOR 
”fRETURN 1 :G ° SÜB 1G10; BOX(l,15)-(2,18)” 

' Î2Ï2 î™ * GAGIfE: PRI SE DE LA COUPE X 

! 0-NFYtÎ = ? ; t V° :F0R J = 0 TO 15: SCREENJ 
,1,0.NEXTJ, I :CLS:SCREEN15,0,0 

1890 PRINT” Bravo, vous avez réussi a 
prendre lacoupe et a sortir de ce laby 
rmthe. Jevous félicité.” 

1900 COLOR6,0:PRINT"Voulez-vous essayer 
une nouvelle fois ?” 3 

1910 A$=INPUTS(1): IF A$=”0” THEN 720 ELS 


> E IF ASC>”N" THEN 1910 

^ 1920 CLS:SCREEN4,6,6: PRINT”Au revoir, et 

^ a bientôt . . . ”: END 

1930 REM X LIMITATION DU TEMPS X 
1940 BOXF(128,120)-(192,TPS+120),1:BOXF- 
(128,168),15:IF TPS>=48 THEN 1710 
1950 TPS=TPS+0. 05:RETURN 
1960 • 

1970 LOCATEO,0,0:C0L0R2, 0: PRINT GRS(60)G 
i RS(61)GRS(62); :C0L0RI5, 0:PRINTGRS(63); :C 
OLOR2,0 : PR INTGRS(64):LOCATEO,1,0:C0L0R2, 

! 0:PRINTGRS(65); :COLOR15,0:PRINTGRS(66)GR 

S(67)GRS(68); :COLOR2,0:PRINTGRS(69) 

; 1900 LOCATEO,2,0: C0L0R2, 0 : PRINTGRS(70) ; : 

1 COLOR15,0: PRINTGRS(71)GRS(72) ; : COLOR2, 0: 
PRINTGRS(73) : LOCATEO,3,0:COLOR11,0:PRINT 
GRS(74)GRS(75)GRS(76)GRS(77)GRS(78)GRS(7 
9)GRS(80) 

1990 FOR 1=0 TO 8 :COLORO,3:LOCATEI,4 : PRI 
NTGRS(INT(RNDX14)):LOCATE1,5: PRINTGRS(IN 
T(RNDX14)):NEXT : FORI=32 T034:LOCATE1,4 : P 
RINTGRS(INT(RNDX14)):NEXT 
2000 FOR 1=6 TO 8 :L0CATE7, I : PRINTGRS(INT 
(RNDX14))GRS(INT(RNDX14)):NEXT: FORI=25T0 
34:LOCATEI,3:PRINTGRS(INT(RNDX14)):NEXT 
2010 LOCATE34,5 : PRINTGRS(INT(RNDX14)): LO 
CATE34,6:PRINTGRS(INT(RNDX14)):F0RI=5T01 
1:LOCATE18, I :PRINTGRS(INT(RNDX14))GRS(IN 
T(RNDX14))GRS(INT(RNDX14))GRS(I NT(RNDX14 
)):NEXT 

2020 FORI = 0TO4:COLOR8,0:LOCATEI, 10:PRINT 
PICS(INT(RNDX7)); :NEXT:FORI=26T039:SS=IN 
T(RNDX7)+2 0 :LOCATEI, 10 : PR INTGRS(SS): :LOC 
ATEI, 11:PRINTGRS(SS+7); :NEXT 
2030 LOCATEO,6:C0L0R5,0:PRINTGRILLES(2): 
LOCATE38, 0:PRINTGRS(40)GRS(41) : LOCATE38, 

1:PRINTGRS(42)GRS(43):L0CATE38, 2: PRINTGR 
S(44)GRS(45) 

2040 NBP=2:POR(1) = 1 :POR(2)=2 
2050 RETURN 
2060 ’ 

2070 C0L0R5,0 :LOCATEO,0: PRINTGRILLES(2): 
LOCATEO, 6 : PR INTGRILLES(2):LOCATE38,9 : PR I 
NTGRS(40)GRS(41):LOCATE38,10:PRINTGRS(42 
)GRS(43):LOCATE38, 11: PRINTGRS(44)GRS(45) 
2080 COLORIO,0:FORI=0TO30: LOCATEI , 11 :PRI 
NTVERS(INT(RNDX4)):NEXT:COLOR8, 0:FORI = OT 
016:LOCATEI,4:PRINTPIC$(INT(RNDX7)):NEXT 
2090 COLORO,3:F0RI=22T025:LOCATEI,2:PRIN 
TMURS(I NT(RNDX7)); :NEXT : LOCATE24,4 : PR INT 
MURS(INT(RNDX7))MURS(INT(RNDX7)) : FORI=26 
T032:LOCATE1,5 : PRINTGRS(I NT(RNDX14)):NEX 

2100 FORI=29T032:LOCATEI,3:PRINTMURS(INT 
(RNDX7)); :NEXT 

2110 COLOR2,0 :LOCATE22,0: PRINTGRS(60)GRS 
(61)GRS(62); :C0L0R15,0:PRINTGRS(63); : COL 
0R2,0: PRINTGRS(64):L0CATE22, 1 : PRINTGRS(6 
5); :COLOR15,0:PRINTGRS(66)GRS(67)GRS(68) 

; :C0L0R2, 0: PRINTGRS(69) 

2120 NBP=3:POR(l)=l:POR(2)=3: POR(3)=4 
2130 RETURN 
2140 ' 

2150 COLOR8,0:FDRI=0T039:SS=INT(RNDX7)+2 
0:LOCATEI, 10:PRINTGRS(SS) : LOCATEI, 11 :PRI 
NTGRS(SS+7):NEXT: FORI=2T05 : LOCATE1,3 : PR I 
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NTPICS <I NT < RND*7)):NEXT 

2160 COLORIO,0:FOR 1 = 191032:LOCATEI,3:PRI 
NTVERS<I NT(RND*4)):NEXT 

2170 COLORO,3:F0RI=4T015: LOCATEI,0:PR INT 
MURS <I NT(RND*7)):NEXT: FOR I= 4T06:LOCATEI , 

2 : PRINTGRS<I NT C RND*14)): NEXT : FORI=3TOô : L 
OCATEô, I :PRINTGRS<INT<RND*14)) : NEXT 
2180 FORI=6T015:LOCATEI,6:PRINTGRS <INT(R 
ND*14)) : NEXT:LOCATEI4,2: PRINTMURS<INT<RN 
D*7))MURS <I NT(RND*7)):LOCATE14,4:PRINTMU 
RS <I NT < RND*7))MURS<I NT<RND*7)) 

2190 C0L0R5, 0:LOCATE2,0:PRINTGRILLES<1) : 
LOCATE38,0:PR INTGRS(40)GRS<41):LOCATE38, 
1:PRINTGRS(42)GRS(43):LOCATE38,2: PRINTGR 
$(44)GRS<45):LOCATE38,7: PRINTGRS<40)GRS< 
41):L0CATE38,8 : PRINTGRS < 42)GRS(43) : LOCAT 
E38,9 : PRINTGRS < 44)GRS < 45) 

2200 COLOR2,0:LOCATE7,2: PRINTGRS(60)GRS< 
61)GRS <62); :COLOR15,0:PRINTGRS<63); :COLO 
R2,0 : PRINTGRS < 64):L0CATE7,3 : PR INTGRS < 65) 

; :C0L0R15,0:PRINTGRS<66)GRS<67)GRS<68); : 
C0L0R2,0 : PR INTGRS < 69):LOCATE7,4 : PRINTGRS 
(70) ; 

2210 C0L0R15,0:PRINTGRS<71)GRS<72) ; : COLO 
R2,0:PRINTGRS<73):LOCATE7,5:COLOR11,0:PR 
INTGRS <74)GRS <75)GRS < 76)GRS <77)GRS <78)GR 
S < 79)GRS < 80) 

2220 NBP=3:POR(1)=2 : POR < 2)=6 : POR<3)=8 
2230 RETURN 
2240 ’ 

2250 COLQR2,0:LOCATEO,0:PRINTGRS<60)GRS< 
61)GRS < 62); :COLOR15,0 : PRINTGRS < 63); :COLO 
R2,0:PR INTGRS<64):LOCATEO, 1:PRINTGRS(65) 

; :COLOR15,0:PR INTGRS<66)GRS<67)GRS<68); : 
COLOR2,0:PRINTGRS(69) : LOCATEO, 2:PRINTGRS 
<70 ) ; 

2260 COLORIS,0: PRINTGRS<71)GRS<72); :COLO 
R2,0:PRINTGRS(73):LOCATEO,3:COLOR11,0: PR 
INTGRS(74)GRS(75)GRS < 76)GRS <77)GRS < 78)GR 
S < 79)GRS < 80) 

2270 L0CATE5,0: COLOR5,O:PRINTGRILLES<2): 
LOCATE38,9 : PRINTGRS < 4 0)GRS < 41):LOCATE38, 
10:PRINTGRS<42)GRS<43):LOCATE38, 11: PRINT 
GRS < 44)GRS < 45) 

2280 COLORIO,0: FORI=0TO33:LOCATEI,11:PRI 
NTVERS <INT < RND*4)):NEXT:COLORO,3: FORI-0T 
04:LOCATE26, 1 : PR INTGRS<I NT<RND*14))GRS<I 
NT<RND*14)) : NEXT 

2290 FORI = OT06 : LOCATE34, I : PRINTGRS <I NT < R 
ND*14))GRS <INT<RND*14)):NEXT:LOCATE22, 0: 
PR INTMURS(I NT < RND*7))CHRS <11)MURS <I NT < RN 
D*7)): FOR1=5 TOI 0 :LOCATE22, I : PRINTGRS <IN 
T(RND*14))GRS <INT<RND*14)):LOCATE30, I : PR 
INTGRS<INT<RND*14))GRS<INT<RND*14)) : NEXT 
2300 LOCATE30,3: PRINTMURS<INT<RND*7))CHR 
S <11)MURS <INT < RND*7)): FORI=8T010 :LOCATE2 
6,1:PRINTGRS<INT(RND*14))GRS<I NT<RND*14) 
):NEXT:COLOR8, 0 : LOCATE24,9 : PRINTPICS <I NT 
< RND*7))CHRS <11)PICS <I NT < RND*7)):L0CATE2 
8,9 :PRINTPICS <INT< RND*7))CHRS <11)PICS <IN 
T < RND* 7)) 

2310 LOCATE34 , 10 : PR INTPICS <INT < RND*7))CH 
RS <11)PICS <I NT < RND*7)) 

2320 NBP=2 : P0R<1)=3:POR<2)=7 
2330 RETURN 
2340 ’ 


2350 COLOR5,0 : LOCATEO,0 : PRINTGRILLES < 2): 
LOCATE26,5: PRINTGRILLES<2):COLORIO,0:FOR 
I = 0TO13:LOCATEI, 3: PRINTVERS<INT<RND*4)): 
NEXT:COLOR8, 0 : FORI=23T032:LOCATE1,8 : PRIN 
TP I CS <I NT < RND*7)) : NEXT 

2360 COLORO, 3 : LOCATE39,8 : PRINTGRS <I NT < RN 
D*14)):LOCATE39,9: PRINTGRS <INT(RND*14)): 
FORI=20T025: F0RJ=3T07: LOCATEI,J :PRINTGRS 
<INT(RND*14)) : NEXTJ , I : FORI=20TO22:LOCATE 
1,8 : PRINTMURS <I NT < RND*7)):NEXT 
2370 NBP=2:POR <1)=4 : POR < 2)=5 
2380 RETURN 

2390 * _ 

2400 COLOR 0,3: FORI=0TO7:FORJ =6T08:LOCAT 
El,J :PRINTGRS <INT<RND*14)):NEXTJ, I :FORI- 
8T09:LOCATE1,7 : PRINT MURS <INT < RND*7)): NE 
XT 

2410 C0L0R8, 0 : FORI=29T039:SS=I NT <RND*7) + 
20:LOCATE1,3: PRINTGRS (SS) : LOCATE1,4: PRIN 
TGRS<SS+7):NEXT:COLORIO,0: F0RI = 13T039: LO 
CATEI, 11:PRINTVERS <I NT < RND*4)):NEXT 
2420 C0L0R5,0 :LOCATE2,0 : PR INTGRILLES(1): 
L0CATE25,5 : PR INTGRILLES < 2) : COLOR2,0 :LOCA 
TE10,0:PRINTGRS(60)GRS <61)GRS <62); :COLOR 
15,0:PRINTGRS(63); :COLOR2:PRINTGRS<64) 
2430 LOCATEI0, 1 : PRINTGRS(65); :C0L0R15:PR 
INTGRS<66)GRS(67)GRS(68); :COLOR2:PRINTGR 
S < 69):LOCATEIO,2:PRINTGRS<70); :C0L0R15:P 
RINTGRS <71)GRS < 72); :COLOR2: PR INTGRS < 73) 
2440 LOCATEIO,3:COLOR11,0:PRINTGRS<74)GR 

S<75)GRS<76)GRS<77)GRS<78)GRS<79)GRS<80) 

2450 NBP=2:POR<1)=5:POR<2)=6 
2460 RETURN 
2470 ’ 

2480 COLORO,3:F0RI = 14T031: LOCATEI,3:PRIN 
TMURS <INT(RND*7)) : NEXT: FORI=20TO25: FORJ- 
8T010STEP2:LOCATEI, J : PR INTMURS <I NT < RND*7 
) ) : NEXTJ, I 

2490 C0L0R5,0:LOCATEO,0:PRINTGRILLES <2): 
LOCATEO,9: PRINTGRILLES<2) : LOCATE14,0:PRI 
NTGRILLES <2):LOCATE30, 0: PRINTGRS<40)GRS< 
41):LOCATE30, 1:PR INTGRS<42)GRS<43):LOCAT 
E30,2:PRINTGRS(44)GRS(45) 

2500 FORI = 0TO7:COLORIO,0: LOCATEI , 3 : PRINT 

VERS <I NT < RND*4)):COLOR8, 0 : LOCATEI,4 : PR IN 

TP ICS(I NT < RND*7)):NEXT: FORI=26T039:SS=IN 

T < RND*7)+20 : LOCATEI,10 :PRINTGRS(SS):LOCA 

TE I, 11: PR INTGRS <SS+7):NEXT 

2510 NBP=4:POR(l)=9:POR(2)=10:POR(3)-11: 

POR< 4)=12 

2520 RETURN 

2530 ’ 

2540 COLORO,3:F0RI=9T013: FORJ=0TO7:LOCAT 
El J•PRINTGRS <INT(RND*14)):NEXTJ, I :FORI = 
23T032:LOCATEI,3 : PRINTMURS(INT < RND*7)): N 
EXT: F0RI=33T037:LOCATEI,3:PRINTGRS<INT(B 
ND*14)) : NEXT 

2550 FORI=23T025:FORJ = 4TO10:LOCATEI,J : PB 
INTMURS(INT<RND*7)):NEXTJ, I :LOCATEO, 10:F 
RINTMURS(I NT < RND*7))CHRS(11)MURS <I NT < RNI 
*7)X:COLORIO,0 : FOR I=2T08 : LOCATEI , 6 : PR I NJ 
VERS.C INT<RND*4 ) ) : NEXT: F0RI=9T013: LOCATEI 
,11:PRINTVERS<INT <RND*4)):NEXT 
2560 COLOR8,0:F0RI=2T06:LOCATEI, 10:PRINI 
PICS <INT< RND*7)):NEXT:FORI = 14TO20:LOCAT! 
1,6 : PRINTPICS <I NT < RND*7)):NEXT : FORI-26TC 
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35: LOCATE1, 10: FRINTPICS (INT (RND*7) ) : NEXT 
2570 C0L0R5,0:LOCATE5,0 : PRINTGRILLES (2 ) • 
LOCATE14, 0:PRINTGRILLES<2> : LOCATE38, 9:PR 
INTGRS(40)GRS(41):L0CATE38,10:PRINTGRS <4 
2)GRS(43):LOCATE38, 11 : PRINTGRS(44>GRS(45 

2580 NBP=3:P0R(1>=7:POR(2)=8:POR(3)=9 
2590 RETURN 
2600 * 

2610 COLORO,3:FORI = 16TO30:LOCATE1,7: PRIN 
TMURS(INT(RND*7)):NEXT:FORI=28TO30:FORJ= 
9T011 :LOCATEI,J : PR INTGRS(INT(RND*14)): NE 
XTJ, I 

2620 COLOR5,0 :LOCATEO,9 : PRINTGRILLES(2): 
LOCATE16,9:PRINTGRILLES(2):LOCATE30,0-PR 
INTGRS(40)GRS(41):LOCATE30,1:PRINTGRS(42 
)GRS(43):LOCATE30,2:PR INTGRS(44)GRS(45) 
2630 COLOR10,0 :F0RI=31TO39:LOCATEI, 11•PR 
INTVERS(I NT(RND*4)):NEXT 

2640 COLOR8,0:F0RI=4T015:LOCATE1, 10: PRIN 
TP I CS(I NT(RND*7)) : LOCATE12+I,5:PR INTPICS 
<INT(RND*7)):NEXT 

2650 NBP=3:POR(1)=10;POR(2) = 11: FOR(3)=13 
2660 RETURN 
2670 ’ 

2680 COLORO,3:F0RI=33T035:FORJ = 0TO4: LOCA 
TE I,J : PR INTGRS(I NT(RND*14)):NEXTJ, I :LOCA 
TE36,3 : PRINTMURS(I NT(RND*7)):LOCATE37,3 : 
PR INTGRS(INT(RND*14)):LOCATE37,4:PR INTGR 
$(INT(RND*14)) 

2690 COLOR5,0:LOCATEO,0:PRINTGRILLES(2) • 
LOCATE16, 9: PRINTGRILLES(2):LOCATE36,0:PR 
INTGRS(47)GRS(46) : LOCATE36, 1 : PRINTGRS(49 
)GRS(48):LOCATE36, 2:PRINTGRS(51)GRS(50) 
2700 C0L0R8,0:FORI = OTO 15 :LOCATE1, 10:PRI 
NTPICS(INT(RND*7)) : LOCATEI+20, 10:SS=INT( 
RND*7)+20: PRINTGRS(SS):LOCATE1+20, 11-PRI 
NTGRS(SS+7):NEXT:FORI=0TO28:LOCATEI 3 • PR 
INTPICS(INT(RND*7)) : NEXT 

2710 NBP=3:POR(1)=12:POR(2)=13:POR(3)=14 
2720 RETURN 
2730 ’ 

2740 COLOR10,0: FOR I=27T039:LOCATE1,11 : PR 
INTVERS(INT(RND*4)) : NEXT:COLOR5,0:LOCATE 
23,9:PRINTGRILLE$(2):LOCATE34,0:PRINTGRS 
(40)GRS(41)GRS(47)GRS(46):LOCATE34, 1: PRI 
NTGRS(42)GRS(43)GRS(49)GRS(48):LOCATE34, 

2 :PRINTGRS(44)GRS(45)GRS(51)GRS(50) 

2750 COLOR8,0:FORI=0TO22:LOCATEI,10:PRIN 
TP ICS(I NT(RND*7)) ; NEXT:FORI=2T037:SS=INT 
(RND*7)+20 :LOCATEI.3:PRINTGRS(SS):LOCATE 
I , 4 : PRINTGRS(SS+7):NEXT 

2760 NBP=3:POR(l)=14:POR(2)=15:POR(3)=16 
2770 RETURN 
2780 ’ 

2790 FORI=4T035:SS=INT(RND*7)+20:COLORO, 

3: LOCATEI, 11 : PRINTGRS ( INT ( RND*14 )): LOCAT 
El, 10:PRINTGRS(INT(RND*14)):LOCATEI,9: CO 
LOR8,0 : PR INTGRS(SS+7):LOCATE1,8 : PRINTGRS 
(SS):NEXT 

2800 COLORO,3:F0RI=36T039:FORJ=0TO2:LOCA 
TEI,J :PRINTGRS(INT(RND*14)):NEXTJ, I :COLO 
R8,0:FORI=2T039:SS=INT(RND*7)+20 :LOCATEI 
3:PR INTGRS(SS):LOCATE1,4:PRINTGRS(SS+7) 
NEXT 

2810 C0L0R5,0:LOCATE34,0:PRINTGRS(40)GRS | 


(41):LOCATE34, 1 : PRINTGRS(42)GRS(43):LOCA 
TE34,2:PR INTGRS(44)GRS(45):LOCATE38,9:PR 
INTGRS(40)GRS(41) 

2820 L0CATE38, 10:PRINTGRS(42)GRS(43):LOC 
ATE38,11:PRINTGRS(44)GRS(45) 

2830 NBP=1:POR(1)=15 
2840 RETURN 
2850 ’ 

2860 
El , J 


COLORO,3:FORI=OT07:F0RJ=6T011:LOCAT 
PRINTGRS(I NT(RND*14 >):NEXTJ , I : FOR I = 
12T029:LOCATEI,0: PRINTMURS(INT(RND*7)) : N 
EXT:F0RI = 15T026: LOCATEI,2: PRINTMURS(INT( 
RND*7)):NEXT: F0RI = 1ST023: LOCATEI , 4: PR INT 
MURS(INT(RND*7)) : NEXT 

2870 C0L0R5,0 :LOCATEO , 3 : PRINTGRILLES(2) 
LOCATE23, 9: PRINTGRILLES(2):L0CATE38,0:PR 
INTGRS(40)GRS(41) : LOCATE38, 1:PRINTGRS(42 
)GRS(43):LOCATE38,2:PRINTGRS(44)GRS(45) 
2880 LOCATE38,6:PRINTGRS(40)GRS(41):LOCA 
TE38,7:PRINTGRS(42)GRS(43):LOCATE38,8:PR 
INTGRS(44)GRS(45):COLOR8,0 
2890 FORI=8T022:LOCATEI, 10:PR INTPICS(I NT 
(RND*7)) : NEXT: F0RI=27T039:SS=I NT(RND*7) + 
20:LOCATEI, 10:PRINTGRS(SS):LOCATE1, 11 : PR 
INTGRS(SS+7) : NEXT 

2900 NBP=4:POR(l)=16:POR(2)=17:POR(3)=18 
POR(4)=19 
2910 RETURN 
2920 • 

2930 COLORO,3:F0RI=QT024:FORJ=OT02:LOCAT 
El,J : PRINTGRS(INT(RND*14)) : NEXTJ , I :FORI = 
OT037: FORJ =6T08 : LOCATEI, J : PR INTGRS(I NT(R 
ND*14)) : NEXTJ, I : FORI=27T037:FORJ =3T06: LO 
CATEI,J :PRINTGRS(INT(RND*14)) : NEXTJ , I 
2940 C0L0R5,0:LOCATEO,3:PRINTGRILLES(2) 
LOCATEO, 9:PRINTGRILLES(2) 

2950 NBP=2:POR(1) = 19: POR(2)=20 
2960 RETURN 
2970 ’ 

2980 COLORO,3 : FORI=2T039:LOCATEI,3 : PRI NT 
GRS(INT(RND*14)) : LOCATE1,4:PRINTGRS(INT( 
RND*14)) : NEXT 

2990 C0L0R5,0 :LOCATEO,7 : PRINTGRILLES(2) 
LOCATE38,0: PRINTGRS(40)GRS(41):LOCATE38, 

1:PRINTGRS(42)GRS(43):LOCATE38,2:PRINTGR 
S(44)GRS(45):LOCATE38,5:PRINTGRS(40)GRS( 
41):LOCATE38,6 : PRINTGRS(42)GRS(43) : LOCAT 
E38,7:PRINTGRS(44)GRS(45) 

3000 C0L0R8,0:FORI=0TO39:SS=I NT(RND*7)+2 
0:LOCATEI,10:PRINTGRS(SS) : LOCATEI , 11 :PRI 
NTGRS(SS+7):NEXT 

3010 NBP=3:POR(1) = 18:POR(2>=21:POR(3)=23 
3020 RETURN 
3030 ’ 

3040 COLORO,3:F0RI=17T022:FORJ=OT03:LOCA 
TEI,J : PRINTGRS(INT(RND*14)):NEXTJ, I 
3050 C0L0R5,0:LOCATEO,9: PR INTGRILLES(2) 
LOCATE38,6 : PR INTGRS(40)GRS(41):LOCATE38, 

7 : PRINTGRS(42)GRS(43):LOCATE33,8:PRINTGR 
S(44)GRS(45) 

3060 COLOR8,0:F0RI=4T039:SS=INT(RND*7)+2 
0:LOCATEI,10:PRINTGRS(SS):LOCATEI,11:PRI 
NTGRS(SS+7):NEXT 
3070 NBP=2:POR(1) = 17 :POR(2)=20 
3080 RETURN 
3090 ’ 
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3100 COLORO,3 : FORI = 0TO39:FORJ = 1OTOl1 :LOC 
ATEI,J :PRINTGRS <INT(RND*14)):NEXTJ, I 
3110 COLOR'l 0, 0: FORI=0TO18: LOC ATEI, 3: PR IN 
TVERS( I NT (RND*4)) : NEXT 

3 120 CGL0R5 , 0 : LOC ATEO , 7 : FRI NTGR I LLr.S ( 2 ■> : 
LOCATE38.5: PR INTGRS(40)GRS(41):LOCATE38, 
6 : PR I NTGRS ( 42 ■> GRS ( 43) : LOCATE38,7 : PR I NTGR 
î ( 44)GRS < 45) 

, : . x 30 NEF=2 : PORT 1>=2'1: PORT 2)-22 
RETURN 


314 0 
313 0 
3160 
El, : 

3170 


LOC AT 


COLORO,3 :FOR1=0TO39:FORJ-0TO4: 

PRINTGRS < INT<RNP*14 >5 :NEXTJ, I 
COLOR10,0 : FOR I=36T039:LOCATE1,11: PR 
INTVERS <I NT < RNP*4 >5 : NEXT _ 

31 go C0L0R5, O: LOC ATEO, 7 : PRINTGRILLES(2) : 
WQPI=5T08STEP3:LOCATE38, I : PR INTGRS(40)GR 
l < 4 1>;LOCATE38, I +1 :PRINTGRS(42)GRS(43> : L 
nfA Ti: 38 1+3; PRI NTGRS < 44 ) GRS ( 45 ) : NEXT 
3 $Ô“cOLORe, 0: FORI=0TO35: SS=I NT<RND*7)+2 
0;LOCATEI, 10: PRINTGRS(SS):LOCATEI, 11:PRI 
NTGRS <SS+7 >:NEXT 
3200 NBP=1:PORC15=22 
3210 RETURN 

3230 COLORiO,0:FOR I=21T039:LOCATEI,3 : PRI 
NTVERS < I NT < RND*4 5):NEXT 

324 0 C0L0R5,0: LOC ATEO, 9: PRI NTGR ILLES (2) : 
LOCATE38,0: PRINTGRS < 405GRS<415 :LOCATE38, 

1 :PRINTGRS(42)GRS(43):LOCATE38,2:PRINTGR 

î<44)GRS(45) _ 

33K.0 C0L0R8,0: F0R1=4T039: SS—1 NT(RND*7) + ~ 

oTlOCATEI,10:PRINTGRS(SS):LOCATEI,11:PRI 

NTGRS(SS+7 ) : NEXT 

3260 NBP=2: PORC 1)=23:POR(2)=24 

3270 RETURN 

3 O Q, f, > 

"■290 COLORIO. 0: FORI =7T039: LOCATEI, 11: PRI 
NTVERS(I NT <RND*4)):NEXT:COLOR5,0 :LOCATEO 
0: PRINTGRILLES(2):LOCATE13,0:PRINTGRI LL 
ES < 2):LOCATE38,0 : FR INTGRS(40)GRS(41): LOC 


ATE38, 1:PRINTGRS(42)GRSC43) :LOCATE38,2: P 
RINTGRS(44)GRS(45) 

3300 C0L0R2,0:LOCATEO,8 : PR1NTGRS(605üRS( 
61)GRS(62); :C0L0R15,0:PRINTGRS(63); : COLO 
R2.0:PRINTGRS(64):LOCATEO,9:PRINTGRS(65; 

;7cOLOR15, 0: PR INTGRS(66)GRS(67)GRS(68); : 

COLOR2.0: PRINTGRS(69) 

3310 LOCATEO, 10:PRINTGRS(70); :COLOR15, 0: 
PRINTGRS(71)GRS(72); :COLOR2,0:PRINTGRS(7 
3):LOCATEO, 11:COLOR11,0 : PRINTGRS(74)GRS( 
75)GRS(76)GRS(77)GRS(78)GRS(79)GRS(80) 
3320 NEP=3:POR(1)=24 :POR(2)=25 : PORC 3)-26 
3330 RETURN 
4 0 ’ 

3350 COLORO, 3: F0RI = 11T039:FORJ=5T011:LOC 
ATEI J-PRINTGRS(INT(RND*14)):NEXTJ, I : LOC 
ATEO ', 9 : COLOR5 , 0: PR I NTGR ILLES ( 2 ) : LOCATEO, 
0-PRINTGRILLES(2) : LOCATE38,0:PRINTGRS(40 
)GRS(41): LOCATE38, 1:PRINTGRS(42)GRS(43) : 
LOCATE38,2: PRINTGRS(44)GRS(455 
3360 C0L0R8,0: FORI= 0TO39: SS-INT(RND*7)+2 
0:LOCATEI,3 : PRINTGRS(SS):LOCATEI,4 : PRINT 
GRS(SS+7) : NEXT 

3370 NBP=2:POR(1)=25 :POR(2)=27 
3380 RETURN 

34 00 COLORO,3:FORI=0TO12:FORJ = OTOl1 :LOcA 
TEI J :PRINTGRS(INT(RNP*14>>:NEXT J, I : FOR I 
= 13T022:F0RJ=5T011:LOCATEI,J :PRINTGRS(IN 
t(RND^14)>: NEXTJ , I 

3410 C0L0R5,0:LOCATEI3.0:PRINTGRILLES < 2) 

:LOCATE38, 0: PRINTGRS(40)GRS(41):LOCATE38 
1•PR INTGRS(42 5 GRS <43):LOCATE38,2 : FR INTG 
RS < 44)GRS(45):LOCATE38,9 : PRINTGRS<405GRS 

3420 L0CATE38,10:PRINTGRS(42)GRS(43):LOC 
ATE38, 11:PRINTGRS<44)GRS(45):COLOR8, 0: FO 
RI = 13T039: LOCATEI-, 3: SS= I NT ( RND*7 ) +20 : FRI 
NTGRS(SS):LOCATEI,4 : PR INTGRS(SS+7) : NEXT 
3430 NBF=2: PORC 1)=26:POR(2)=27 
3440 RETURN 
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